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Preface 


As physicists, mathematicians or engineers, we are all involved with 
mathematical calculations in our everyday work. Most of the laborious, 
complicated, and time-consuming calculations have to be done over and 
over again if we want to check the validity of our assumptions and 
derive new phenomena from changing models. Even in the age of 
computers, we often use paper and pencil to do our calculations. 
However, computer programs like Mathematica have revolutionized our 
working methods. Mathematica not only supports popular numerical 
calculations but also enables us to do exact analytical calculations by 
computer. Once we know the analytical representations of physical 
phenomena, we are able to use Mathematica to create graphical 
representations of these relations. Days of calculations by hand have 
shrunk to minutes by using Mathematica. Results can be verified within 
a few seconds, a task that took hours if not days in the past. 


The present text uses Mathematica as a tool to discuss and to solve 
examples from physics. The intention of this book is to demonstrate the 
usefulness of Mathematica in everyday applications. We will not give a 
complete description of its syntax but demonstrate by examples the use 
of its language. In particular, we show how this modern tool is used to 


solve classical problems. 


Vili 
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This second edition of Mathematica in Theoretical Physics seeks to 
prevent the objectives and emphasis of the previous edition. It is 
extended to include a full course in classical mechanics, new examples 
in quantum mechanics, and measurement methods for fractals. In 
addition, there is an extension of the fractal's chapter by a fractional 
calculus. The additional material and examples enlarged the text so 
much that we decided to divide the book in two volumes. The first 
volume covers classical mechanics and nonlinear dynamics. The second 
volume starts with electrodynamics, adds quantum mechanics and 
general relativity, and ends with fractals. Because of the inclusion of 
new materials, it was necessary to restructure the text. The main 
differences are concerned with the chapter on nonlinear dynamics. This 
chapter discusses mainly classical field theory and, thus, it was 


appropriate to locate it in line with the classical mechanics chapter. 


The text contains a large number of examples that are solvable using 
Mathematica. The defined functions and packages are available on CD 
accompanying each of the two volumes. The names of the files on the 
CD carry the names of their respective chapters. Chapter 1 comments on 
the basic properties of Mathematica using examples from different fields 
of physics. Chapter 2 demonstrates the use of Mathematica in a 
step-by-step procedure applied to mechanical problems. Chapter 2 
contains a one-term lecture in mechanics. It starts with the basic 
definitions, goes on with Newton's mechanics, discusses the Lagrange 
and Hamilton representation of mechanics, and ends with the rigid body 
motion. We show how Mathematica is used to simplify our work and to 
support and derive solutions for specific problems. In Chapter 3, we 
examine nonlinear phenomena of the Korteweg-de Vries equation. We 
demonstrate that Mathematica is an appropriate tool to derive numerical 
and analytical solutions even for nonlinear equations of motion. The 
second volume starts with Chapter 4, discussing problems of 
electrostatics and the motion of ions in an electromagnetic field. We 
further introduce Mathematica functions that are closely related to the 
theoretical considerations of the selected problems. In Chapter 5, we 
discuss problems of quantum mechanics. We examine the dynamics of a 
free particle by the example of the time-dependent Schrédinger equation 
and study one-dimensional eigenvalue problems using the analytic and 
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numeric capabilities of Mathematica. Problems of general relativity are 
discussed in Chapter 6. Most standard books on Einstein's theory discuss 
the phenomena of general relativity by using approximations. With 
Mathematica, general relativity effects like the shift of the perihelion 
can be tracked with precision. Finally, the last chapter, Chapter 7, uses 
computer algebra to represent fractals and gives an introduction to the 
spatial renormalization theory. In addition, we present the basics of 
fractional calculus approaching fractals from the analytic side. This 
approach is supported by a package, FractionalCalculus, which is not 
included in this project. The package is available by request from the 
author. Exercises with which Mathematica can be used for modified 
applications. Chapters 2—7 include at the end some exercises allowing 


the reader to carry out his own experiments with the book. 
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4 
Electrodynamics 


4.1 Introduction 


This chapter is concerned with electric fields and charges encountered in 
different systems. Electricity is an ancient phenomenon already known by 
the Greeks. The experimental and theoretical basis of the current 
understanding of electrodynamical phenomena was established by two 
men: Michael Farady, the self-trained experimenter, and James Clerk 
Maxwell, the theoretician. The work of both were based on extensive 
material and knowledge by Coulomb. Farady, originally, a bookbinder, 
was most interested in electricity. His inquisitiveness in gaining 
knowledge on electrical phenomena made it possible to obtain an 
assistantship in Davy's lab. Farady (see Figure 4.1.1) was one of the 
greatest experimenters ever. In the course of his experiments, he 
discovered that a suspended magnet would revolve around a current 
bearing-wire. This observation led him to propose that magnetism is a 
circular force. He invented the dynamo in 1821, with which a large 
amount of our current electricity is generated. In 1831, he discovered 
electromagnetic induction. One of his most important contributions to 
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physics in 1845 was his development of the concept of a field to describe 
magnetic and electric forces. 


Figure 4.1.1. | Michael Faraday: born September 22, 1791; died August 25, 1867. 


Maxwell (see Figure 4.1.2) started out by writing a paper entitled "On 
Faraday's Lines of Force" (1856), in which he translated Faraday's theories 
into mathematical form. This description of Faraday's findings by means of 
mathematics presented the lines of force as imaginary tubes containing an 
incompressible fluid. In 1861, he published the paper "On Physical Lines 
of Force" in which he treated the lines of force as real entities. Finally, in 
1865, he published a purely mathematical theory known as "On a 
Dynamical Theory of the Electromagnetic Field". The equations derived 
by Maxwell and published in "A Treaties on Electricity and Magnetism" 
(1873) are still valid and a source of basic laws for engineering as well as 
physics. 
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Figure 4.1.2. James Clerk Maxwell: born June 13, 1831; died November 5, 1879. 


The aim of this chapter is to introduce basic phenomena and basic solution 
procedures for electric fields. The material discussed is a collection of 
examples. It is far from being complete by considering the huge diversity 
of electromagnetic phenomena. However, the examples discussed 
demonstrate how symbolic computations can be used to derive solutions 
for electromagnetic problems. 


This chapter is organized as follows: Section 4.2 contains material on 
point charges. The exampl discuss the electric field of an assembly of 
discrete charges distributed in space. In Section 4.3, a standard boundary 
problem from electrostatics is examined to solve Poisson's equation for an 
angular segment. The dynamical interaction of electric fields and charged 
particles in a Penning trap is discussed in Section 4.4. 
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4.2 Potential and Electric Fields of Discrete 
Charge Distributions 


In electrostatic problems, we often need to determine the potential and the 
electric fields for a certain charge distribution. The basic equation of 
electrostatics is Gauss’ law. From this fundamental relation connecting the 
charge density with the electric field, the potential of the field can be 
derived. We can state Gauss' law in differential form by 


div E = 47p(?). (4.2.1) 


If we introduce the potential by E = —grad ®, we can rewrite Eq. (4.2.1) 
for a given charge distribution p in the form of a Poisson equation 


A® = —4z0 (4.2.2) 


where po denotes the charge distribution. To obtain solutions of Eq. 
(4.2..2), we can use the Green's function formalism to derive a particular 
solution. The Green's function G(7, 7’) itself has to satisfy a Poisson 
equation where the continuous charge density is replaced by Dirac's delta 
function A, G (7, 7') = —472 6(7 —7'). The potential ® is then given by 


(7) = i G(?, 7') p(?') dr’. (4.2.3) 
In addition, we assume that the boundary condition G|y= 0 is satisfied on 


the surface of volume V. If the space in which our charges are located is 
infinitely extended, the Green's function is given by 


ats 1 
G7, r') = ral (4.2.4) 
The solution of the Poisson equation (4.2.3) becomes 
s (7') ' 
(7) = i ey ar (4.2.5) 


Our aim is to examine the potential and the electric fields of a discrete 
charge distribution. The charges are characterized by a strength g; and are 
located at certain positions 7;. The charge density of such a distribution is 
given by 


pe?) = YN, qi d(*)). (4.2.6) 
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The potential of such a discrete distribution of charges is in accordance 
with Eq. (4.2.5): 


N ; 
2) y Gi 
O(7) a i=l |?-7;| > (4.2.7) 
where 7; denotes the location of the point charge. The corresponding 


electrical field is given by 


EQ) = Dea? eae (4.2.8) 
and the energy density of the electric field of such a charge distribution is 
given by 

-t FPR 
w= 37 |E[. (4.2.9) 


Three fundamental properties of a discrete charge distribution are defined 
by Eqs. (4.2.7), (4.2.8), and (4.2.9). In the following, we write a 
Mathematica package which computes the potential, the electric field, and 
the energy density for a given charge distribution. With this package, we 
are able to create pictures of the potential, the electric field, and the energy 
density. 


In order to design a graphical representation of the three quantities, we 
need to create contour plots of a three-dimensional space. To simplify the 
handling of the functions, we enter the cartesian coordinates of the 
locations and the strength of the charges as input variables in a list. 
Sublists of this list contain the information for specific charges. The 
structure of the input list is given by {{x,, y1, Z1, P1}, {X2, 2, Z2, Po}, .--}- 
To make things simple in our examples, we choose the y = 0 section of the 
three-dimensional space. The package PointCharge, located in the 
section on packages and programs, contains the equations discussed above. 
The package generates contour plots of the potential, the electric field, and 


the energy density. 


In order to test the functions of this package, let us consider some 
ensembles of charges frequently discussed in literature. Our first example 
describes two particles carrying the opposite charge, known as a dipole. 
Let us first define the charges and their coordinates by 
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charges = {{1,0,0,1},{-1,0,0,-1}} 


{{l, 0, 0, 1}, {-l, 0, 0, -1}} 


The charges are located in space at x = 1, y=0, z=0 and at x =~-1, 
y =0, z=0. The fourth element in the sublists specifies the strength of the 
charges. The picture of the contour lines of the potential is created by 
calling 


FieldPlot[charges,"Potential"] ; 


-15 -1 -05 0 0.5 1 1.5 


Contour plot of the potential for two charges in the (x, z)-plane. The particles carry opposite 


Fi 4.2.3. 
eure charges. 


The second argument of FieldPlot[] is given as a string specifying the type 
of the contour plot. Possible values are Potential, Field, and 


EnergyDensity. 
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A graphical representation of the energy density follows by 


551 


FieldPlot[charges, "EnergyDensity"] ; 


-15 -1 -05 0 0.5 1 1.5 
Figure 4.2.4. Contour plot of the energy density of two charges in the (x, z)-plane. 


The electrical field of the two charges are generated by 
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FieldPlot[charges, "Field"]; 
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Since the generation of field plots is very flexible, we are able to examine 
any configuration of charges in space. A second example is given by a 
quadruple consisting of four charges arranged in a spatial configuration. 
The locations and strength of the charges are defined by 


quadrupole = {{-1, 0, 0, -1}, 
{1, 0, 0, -1}, {0, 0, abn, aL {0, 07 -1, 1}} 


{{-1, 0, 0, -1}, {1, 0, 0, -1}, 
{0, 0, 1, 1}, {0, 0, -l1, 1}} 


The potential is 
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FieldPlot[quadrupole, "Potential"]; 


The field lines in the (x, z)-plane with y = 0 are 
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FieldPlot[quadrupole, "Field"]; 


PY Peaeuan ca goes ® TS 4 
=“ Ae ey ed a ee ee - 
YAY APF Ae ee LG eee Se ATA 
ON OY DP we oe ate FR Se em eK. OOK. F 
CV RPP AR AD yp EAR AAA ST TY 
~ FV F Fe kP KK TVA KR RA ATE YT 
C(O A a a a A ee | A, OS 
x2 44 ¥ TF KKK PVA A AK DT OP Pw 
nA 4 YP AAAPATFVA KKH KA LT PAA 
a ya a a ae ae ee ee ee ee , oa 
a ee ae ae 
vy vd¢dkhtVv¥Yvvvvryigaerve to hvvwv 
v¢d@4ekbhbvyvv Vv Vb AAT FF hook YY 
A ry es Sk i ee A A Ae Ay Oe ee 2 
eee ee es SS A A A A A? i Ve 
Ckbvyvvyvrvyrvv> fvrwrrr ee anda 
LA dS OW SOS Se SE re eS ee le 
eb yw ESE NAS SE ew ew Le 4 
al Ja et ed a OPP ON ROAR, ie ee ete > 
Ava ttt 4*APA PTV Re ee DG 


The energy density looks like 
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FieldPlot[quadrupole, "EnergyDensity"] ; 


4.3 Boundary Problem of Electrostatics 


In the previous section, we discussed the arrangement of discrete charges. 
The problem was solved by means of the Poisson equation for the general 
case. We derived the solution for the potential using 


Equation (4.3.10) is reduced to the Laplace equation if no charges are 
present in the space: 


Ad = 0. (4.3.11) 


The Laplace equation is a general type of equation applicable to many 
different theories in physics, such as continuum theory, gravitation, 
hydrodynamics, thermodynamics, and statistical physics. In this section, 
we use both the Poisson and the Laplace equations (4.3.10) and (4.3.11) to 


556 


4.3 Boundary Problem 


describe electrostatic phenomena. We show that Eqs. (4.3.10) and (4.3.11) 
are solvable by use of Green's function. If we know the Green's function of 
the equation, we are able to consider general boundary problems. A 
boundary problem is defined as follows: For a certain volume V, the 
surface of this volume, OV, possesses a specific electric potential. The 
problem is to determine the electric potential inside the volume given the 
value on the surface. This type of electrostatic boundary problem is called 
a Dirichlet boundary value problem. According to Eq. (4.3.10), there are 
charges inside volume V. The distribution or density of these charges is 
denoted by p(x). The mathematical problem is to find solutions for Eq. 
(4.3.10) or (4.3.11) once we know the distribution of charges and the 


electric potential on the surface of the domain. 


The Green's function allows us to simplify the solution of the problem. In 
our problem, we have to solve the Poisson equation (4.3.10) under certain 
restrictions. The Green's function related to the Poisson problem is defined 
by 


A G(X, X') = —4726(X-X') (4.3.12) 
under the specific boundary condition 
G(X, X') ie = O with x'edV (4.3.13) 


on the surface 0V of volume V. 


In the previous section, we discussed the Green's function for an infinitely 
extended space and found that the Green's function is represented by 
G(x, X')=1/|X-xX'|. The present problem is more complicated than 
the one previously discussed. We need to satisfy boundary conditions for a 


finite domain in space. 


For our discussion, we assume that the Green's function exists and that we 
can use it to solve the boundary problem. The proof of this assumption is 
given by Arfken [4.1]. The connection between the Green's function and 
the solution of the boundary problem is derived using Gauss's theorem. 
The first formula by Green 


{div Ad? x=f/A a? f, (4.3.14) 
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along with an appropriate representation of the vector field A= ®-VG — 
V@®-G yields the second formula by Green: 


divA = ®-AG-A®-G. (4.3.15) 
Using the integral theorem of Gauss in the form of Eq. (4.3.14), we find 
Bs 8G O®) 72 
f,(@AG- Ao- Gd x =f, (© =G4-)d ce (4.3.16) 


where 0/0n=7 -V is the normal gradient. If we use relations (4.3.10), 
(4.3.12), and (4.3.13) in Eq. (4.3.16), we can derive the potential by the 
two integrals 


OC) = fi, GR, %) p@')d? x 

(4.3.17) 
Fe Loy 28) Gp aS 
A comparison between Eqs. (4.3.17) and (4.2.3) reveals that the total 
potential in the Dirichlet problem depends on a volume part (consistent 
with Eq. (4.2.3) and on a surface part as well. The potential ® at location X 
consists of a volume term containing the charges and of a surface term 
determined by the electric potential ®(x). The potential ®(%') used in the 
surface term is known as a boundary condition. If there are no charges in 
the present volume, solution (4.3.17) reduces to 


eG) = gq | ace) Si af (4.3.18) 
For the charge-free case, the electric potential at a location X¥ inside the 
volume V is completely determined by the potential on the surface ®(’). 
We are able to derive Eqs. (4.3.17) and (4.3.18) provided that the Green's 
function G(X, xX') vanishes on the surface of V. In other words, we assume 
the surface potential to be a boundary condition. This type of boundary 
condition is called a Dirichlet boundary condition. A second type is the 
so-called von Neumann boundary condition, which specifies the normal 
derivative of the electrostatic potential 0®/0n on the surface. A third type 
used in potential theory is a mixture of Dirichlet and von Neumann 
boundary conditions. In the following, we will restrict ourselves to 
Dirichlet boundary conditions only. 


If we take a closer look at solutions (4.3.17) and (4.3.18) of our boundary 
value problem, we observe that the Green's function as an unknown 
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determines the solution of our problem. In other words, we solved the 
boundary problem in a form which contains an unknown function as 
defined by relation (4.3.12) and the boundary condition (4.3.13). The 
central problem is to find an explicit representation of the Green's 
function. One way to tackle this is by introducing an eigenfunction 
expansion [4.2]. This procedure always applies if the coordinates are 
separable. The eigenfunction expansion of the Green's function is based on 
the analogy between an eigenvalue problem and equations (4.3.10) and 
(4.3.11) for the potential. 


The eigenvalue problem related to equation (4.3.10) is given by 
Aw+(4r p +A)y = 0. (4.3.19) 


For a detailed discussion of the connection, see [4.2]. We assume that 
solutions w of Eq. (4.3.19) satisfy the Dirichlet boundary conditions. In 
this case, the regular solutions of Eq. (4.3.12) only occur if parameter A = 
An assumes certain discrete values. The A,'s are the eigenvalues of Eq. 
(4.3.19). Their corresponding functions yw, are eigenfunctions. The 
eigenfunctions Wy, are orthogonal and satisfy 


S Yin @ Un ® dF x = Onn. (4.3.20) 
The eigenvalues of Eq. (4.3.19) can be discrete or continuous. In analogy 
to Eq. (4.3.12), the Green's function has to satisfy the equation 

A, G(X, X')+ (4ap + AVG, X') = —476(%-%), (4.3.21) 


where A is different to the eigenvalues A,. An expansion of the Green's 
function with respect to the eigenfunctions of the related eigenvalue 
problem is possible if the Green's function satisfies the same boundary 
conditions. Substituting an expansion of the Green's function 


G(X, X') = Ln Gn (%') Un ) (4.3.22) 
into Eq. (4.3.21), we get 

Ym Gn (X')V (A= Am) Wn) = -40 6% -%’). (4.3.23) 
Multiplying both sides of Eq. (4.3.23) by W(X) and integrating the result 


over the entire volume, we obtain the expansion coefficients aj, ('’). 
Using the orthogonal relation (4.3.20) simplifies the sum. The expansion 
coefficients are defined by 
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ne) =4n 42 a (4.3.24) 
With relation (4.3.24) we get the representation of the Green's function 
GG, 2) =40)) eee (4.3.25) 


So far, our considerations have assumed a discrete spectrum of 
eigenvalues. For a continuous distribution of eigenvalues 4,,, we need to 
replace the sum in Eq. (4.3.25) with an integral over the eigenvalues. 


By using the representation of the Green's function (4.3.25), we can 
rewrite the solution of the potential (4.3.17) and (4.3.18) in the form 


w= | 4nd), PoE Ne) a3 x' - 
Vv n 
x! n 0 n : 
[9095 SS MP as 
OV 
=4n)i, oe [, Wa) pCR") d? x" = 


oe: YX) ah og) Ba) BG) 2 g ef 


If we know the eigenfunctions and eigenvalues of the problem, we can 


(4.3.26) 


represent the potential by 


P(X) = Ln (Cn - dn) Wn &), (4.3.27) 


where the c,,'s and the d,'s are expansion coefficients defined by 


Cn = sh TS eR) p@ a x" (4.3.28) 
and 
a 
d, = ae oe) SEO oF (4.3.29) 
For the charge-free case p = 0, we find 
— n x 1 0 
a) =-S) BS oe) SO @ p (4.3.30) 
" av 


which reduces to 


OX) = — Dn InWn &)- (4.3.31) 


The unknown quantities of this representation are the eigenfunctions, 


and the expansion coefficients c, and d,. By examining a specific planar 
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problem, we show how these unknowns are calculated. To make things 
simple, we assume that no charges are distributed on the plane. 


The problem under consideration examines in a section of a disk in which 
boundaries have fixed potential values ®(7, p=0)=0, ®(7, y= a) =0, 
and ®(r=R, y)=® 9 (y). The specific form of the domain and the 


boundary values are given in Figure 4.3.5. 


O(r=R,y)=®, 


@(r,p=0)=0 


Figure 4.3.5. | Boundary conditions on a disk segment. The domain G is free of charges. 


The domain G is free of any charges and the potential ®(7, y) is regular 
and finite for r > 0. To solve the problem efficiently, we choose 
coordinates which reflect the geometry of our problem. In this case, they 
are plane cylindrical coordinates. Since G is free of any charges, Laplace's 
equation in plane cylindrical coordinates takes the form 


1 0 O® 1 &® 
eV a)+ we ap =O. (4.3.32) 


When deriving the solution, we assume that the coordinates are separated. 
If we use the assumption of separating the coordinates, we are able to 
express the electric potential as ®(r, y) = g(r) h(~). Substituting this 
expression into Eq. (4.3.32), we get 


r dy; dey 1 @hy _ 5 
Gdn ae) WG Ger 2 ee) 
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where vy is a constant. Separating both equations, we get two ordinary 
differential equations determining g and h. g and h represent the 
eigenfunctions of the Green's function 


r d dg 
rp) ar (r 7) = y’, (4.3.34) 
ah 
hoy is ae (4.3.35) 


The eigenfunctions of the radial part of the potential are 
gr) =a, + by”. (4.3.36) 
The angular part of the eigenfunctions defined in Eq. (4.3.35) is given by 
h, (vy) = Ay sin(vy) + B, cos(vy ). (4.3.37) 


The solutions (4.3.36) and (4.3.37) contain four constants a,, by, Ay, and 
B, for each eigenvalue v. These constants have to satisfy the boundary 
conditions and the condition of regularity at r = 0. 


Let us first examine the radial part of the solution in the domain G. We 
find that for y = 0, the relation 
P(r, p = 0) = gin h(y = 0) = 0 (4.3.38) 


needs to be satisfied. From condition (4.3.38), it follows that 
h(y =0) = B,= 0. From the boundary condition at y=a we get the 


condition 

Or, p=a) = gir)h(y=a) = 0, (4.3.39) 
which results in h(a) = A, sin(va) =0. As a consequence, we get v= 
nx/a withn =0, 1, 2,3, .... The angular part of the solution thus reduces 
to 

hy (y) = An sin(“Z 9). (4.3.40) 


From the condition of regularity ®(r > 0, y) < oo, it follows from 

Or, y) = hy (vy) (ar +byr”) (4.3.41) 
that b, = 0. The solution of the potential is thus represented by 

O(r, ~) = Dre dn "4 sin (= 9), (4.3.42) 


where d,, = a, Ay. Expression (4.3.42) contains the unknown coefficients 
dn, Which we need to determine in order to find their explicit 
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representations. Values for d, are determined by applying the boundary 
condition on the circle ®(r=R, y) = ®o(y). If we take into account the 
orthogonality relation for the trigonometric functions 


2 . : 
= fF sin’ ¢) sin’ 9) d = Onn, (4.3.43) 


a 


we are able to derive from the boundary condition of the circle a 


representation of d, by 
f P@) sin y)dy = 
Poe apron if sin( a y) sin( an y)dy 


6S (4.3.44) 
= cet 0 
SO) m 2 nm 
— & pna 
= FR, 
or in explicit form, 
dy, = R= [" boy) sin( ydg. (4.3.45) 


The representation of d,, by the integral (4.3.45) includes the boundary 
condition and only contains known parameters. Thus, we can determine 
d,,'s numerical value if we know the boundary condition and if we specify 
the index m of the expansion in Eq. (4.3.42). The values of d, are, 
however, only defined if the integral in Eq. (4.2.45) converges. The 
specific form of the Green's function is derivable if we compare the 
representation of the solution (4.3.42) with the definition of the Green's 


function. 
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With the above theoretical considerations, an explicit representation of the 
solution is now necessary. By specifying the geometrical parameters of the 
problem, the radius R of the segment, the angle a, the potential value along 
the rim of the disk and Eq. (4.3.42), we can calculate the potential in the 
domain G. The central quantities of the expansion (4.3.42) are the 
coefficients d,,. In order to make these factors available, we define the sum 
(4.3.42) and the integral (4.3.45) in the Potential[] function of the package 
BoundaryProblem’ (see Section 4.6.2 for details). We define relations 
(4.3.42) and (4.3.45) to control the accuracy of the calculation using an 
upper summation index n (see also the definition of the function 
Potential[] in Section 4.6.2). An example of the potential for the 
parameters R=1, a = 7/4 and ®(y)=1 is given in Figure 4.3.6. The calling 
sequence of Potential[] takes the form Potential[f [x], R, a, n]. 


mAs 
Potential[1, 1, —, 10]; 
4 
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Contour plot of the potential in the domain G. Boundary conditions and geometric 


Fi 4.3.6. 
TENTS: parameters are ®o(y)= 1, R=1, a = 2/4 and n=10. 


The result shows an approximation of the potential up to order 10. The 
contour lines show that the approximation shows some wiggles at the rim 
of the domain. The quality of the approximation can be checked by 
increasing the approximation order. The increase in quality is shown in the 
following sequence of plots (Figure 4.3.7): 


pl = Table[Potential[1, 1 =, il; (sl, al, AO, 2G 


0 0.2 0.4 0.6 0.8 1 
Sequence of contour plot of the potential in the domain G. Boundary conditions and 


Figure 4.3.7. geometric parameters are ®o(y)= 1, R=1, a = 17/4 and ne[1,20,2]. 


At this place, a word of caution should be mentioned. The approximation 
of the potential shows that the procedure is sensitive in the approximation 
order. The kind of calculation is also sensitive on the boundary conditions, 
which is given as first argument in the function Potential[]. Although the 


calculated potential shows the expected behavior, it is not always possible 
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to calculate the potential for a reasonable approximation order for arbitrary 
boundary conditions. This shortcoming is due to the calculation of 
integrals in the procedure. However, the reader should experiment with the 
function and test the limitations of the method to gain a feeling for the 
applicability. An example with a spatially varying boundary condition on 
the rim is presented in Figure 4.3.8. 


me 
Potential[2+Sin[7 ¢], 1, ve 20); 


0 0.2 0.4 0.6 0.8 1 
Contour plot of the potential in the domain G. Boundary conditions and geometric 


Figure 4.3.8. rameters ane Gy(o)= 2+8in(Tp), R=1, a = x/4 and n=10. 
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4.4 Two lons in the Penning Trap 


The study of spectroscopic properties of single ions requires that one or 
two ions are trapped in a cavity. Nowadays, ions can be successfully 
separated and stored by means of ion traps. Two techniques are used for 
trapping ions. The first method uses a dynamic electric field, while the 
second method uses static electric and magnetic fields. The dynamic trap 
was originally invented by Paul [4.3]. The static trap is based on the work 
of Penning [4.4]. Both traps use a combination of electric and magnetic 
fields to confine ions in a certain volume in space. Two paraboloids 
connected to a dc-source determine the kind of electric field in which the 
ions are trapped. The form of the paraboloids in turn determines the field 
of the trap's interior. Since the motion of the ions in Paul's trap is very 
complicated, we restrict our study to the Penning trap. 


In our discussion of the Penning trap, the form of the quadrupole fields 
determined by the shapes of the paraboloids is assumed to be 


Ui 
= Pie (7 +y?-227), (4.4.46) 


where Up is the strength of the source and roand zgare the radial and axial 
extensions of the trap (see Figure 4.4.9). The shape of the potential is a 
consequence of the Laplace equation A®=0. The given functional shape of 
the potential is experimentally created by conducting walls which are 
connected to a dc-battery. The force acting on an ion carrying charge q in 
the trap is given by 


F =q E=-qV®. (4.4.47) 
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Cross-section of the Penning trap. The paraboloids are positioned on dc-potentials. A 
Figure 4.4.9. constant magnetic field is superimposed in the z vertical direction (not shown). The ions 
move in the center of the trap. 


From the functional form of the electric field E of the trap 


xX 

Fo =o 2Uo = 2Up = 23 

B=-VOo= Toe | 2 |= "gore 6-2 e) (4.4.48) 
—2% 


we detect a change of sign in the coordinates. This instability allows the 
ions to escape the trap. To prevent escape from the trap in the z-direction, 
Paul and co-workers used a high-frequency ac-field and Penning and 
co-workers used a permanent magnetic field B = Byé-. 


In a static trap the forces acting on each of the two ions are determined by 
the electromagnetic force of the external fields and the repulsive force of 
the Coulomb interaction of the charges. The external fields consist of the 
static magnetic field along the z-axis and the electric quadrupole field of 


the trap. The Coulomb interaction of the two particles is mainly governed 
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by the charges which are carried by the particles. The total force on each 
particle is a combination of trap and Coulomb forces. Since we have a 
system containing only a few particles, we can use Newton's theory (see 
section 2.4) to write down the equations of motion in the form 


=< —» Coul 
m%"=(F), +(F), i=1,2. (4.4.49) 


In equation (4.4.49) the trap force (F), denotes the Lorentz force of a 
particle in the electromagnetic field given by 

(PF) = 4B); +4 (0:8). (4.4.50) 
Since the magnetic field B is a constant field along the z-direction 

B= Boe, (4.4.51) 
the total trap force on the ith ion is given by 


AT 2Uy a = ae 
®); = -ag @-3ae%) + q(%'i xB). (4.4.52) 


The Coulomb forces between the first and the second ion are 


—. Coul = ¢ X1—-Xo 
ig = aa ae’ (4.4.53) 
—. Coul ¢ R-*y 
(Foy 4m Tex)? (4.4.54) 
The explicit forms of the equations of motion are thus 
mx"; = 
ax m ES ¢ Xk (4.4.55) 
~ 42% (yo 8.z1 @) + q(x t xB) + Fre [x -%2)3 7 
ra) fU0  -32)+ 
MX") = —->—>_ (%. —-3 22 
2 2 42 Z 2 2 he 
2 Eee (4.4.56) 
q (%'2 xB) + 2 ee 


4 Eo |X, —%, [3° 
The two equations of motion (4.4.55) and (4.4.56) are coupled ordinary 


differential equations of the second order. They can be decoupled by 


introducing relative and center of mass coordinates: 


(4.4.57) 
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Using Eqs. (4.4.57) in (4.4.55) and (4.4.56), we can describe the motion of 
the two ions in the center of mass and in relative coordinates. The two 
transformed equations read 


Pp" 2U — “ qB ESE 0 
RY = — Taam (R-3Z2,) + A> (Rxe,) (4.4.58) 
Bn 2 Up e879 a 
= —-———_ (F-37ze@ 
mr + 22) ‘ 
> (4.4.59) 
qBo 4. q 7 
(7'xé,) + ———_ —_. 
m 2name |FP 


If we assume that the two ions carry a negative charge qg < 0 and that the 
dc-potential Up on the paraboloids is positive (Up >0), then we can 


introduce two characteristic frequencies and a scaled charge by 


2_ __2Uo 
Wo = WH BD” (4.4.60) 
_ |qlBo 
We = “m, : (4.4.61) 
ye q 
Q-= Sines (4.4.62) 


Constant wo denotes the frequency of the oscillations along the z-direction. 
w, is the cyclotron frequency (i.e., the frequency with which the ions spin 
around the magnetic field). Q represents the scaled charge. Using these 
constants in the equations of motion (4.4.58) and (4.4.59), we get a 
simplified system of equations containing only three constants: 


R" = 3 (R-3Z2,) — w(R'x2,), (4.4.63) 
E (4.4.64) 


= aN = = = r 
7" = wh (F — 3. 2@:) — We (F'X 2.) + Q? be 


In the following subsections, we discuss the two different types of motion 
resulting from these equations. 


4.4.1 The Center of Mass Motion 


The center of mass motion is determined by Eq. (4.4.63). Writing down 
the equations of motion in cartesian coordinates X, Y, and Z, we get a 
coupled system of equations: 


X"-w2X +, Y'=0, (4.4.65) 
Y"-asY¥-w, X'=0, (4.4.66) 
Z" +203 Z=0. (4.4.67) 
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The equations of motion for the X- and Y- components are coupled 
through the cross-product. The Z- component of the motion is completely 
decoupled from the X and Y coordinates. The last of these three equations 
is equivalent to a harmonic oscillator with frequency V2 wo. Thus, we 


immediately know the solution of the Z- coordinate given by 
Z(t) = Acos(¥2 wot +B). (4.4.68) 
The arbitrary constants A and B are related to the initial conditions of the 


motion by Z(t = 0) = Z and Z'(t= 0)=Z). Therefore, A = Ze + Z'9/2 Ww 
and tan B = Zap 2. Wo Zo. 


A representation of the solution of the remaining two equations (4.4.65) 
and (4.4.66) follows if we combine the two coordinates X and Y by a 
complex transformation of the form Y=xX+iY. Applying this 
transformation to the two equations delivers the simple representation 


Y-wY-iwv.Y = 0. (4.4.69) 


If we assume that the solutions of Eq. (4.4.69) are harmonic functions of 


the type Y = e'”', we get the corresponding characteristic polynomial 


W(We — W) — Ww =0. (4.4.70) 
The two solutions of this quadratic equation are given by the frequencies 
W@, and Ww: 

w= + f(y 08, (44.71) 

w= -/ (SEY 0h. (4.4.72) 


The two frequencies are combinations of the cyclotron frequency w, and 
the axial frequency wo. The general solution of Eqs. (4.4.65) and (4.4.66) 
is thus given by 


X(t) = 


B,cos(w, ft) + B; sin(w, t) + A,cos(w, t) + A; sin(w,t), (4.4.73) 


Y(t) = 
A, sin(W t) — A; cos (W2 t) + B, sin(w, t) — Bcos(w, f). (4.4.74) 
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The constants of integration A,, A;, B,, and B; are related to the initial 
conditions Xo, Yo, Xq; and ¥, by the relations 


A,= un (4.4.75) 
: 2 —W] 

ae meee, (4.4.76) 

Be tae (4.4.77) 
: 1—-W2 

Bz ae (4.4.78) 


A special case of solutions (4.4.73) and (4.4.74) is obtained if we assume 
that the center of mass is initially located in the origin of the coordinate 
system Xp = Yo = 0. We get from (4.4.75) A, = —B,, and A; = —B;. The 
solution then takes the form 


X() = A, sin( S$ 1) w gp ea 7 


(4.4.79) 
Y() = Ajsin( S$ 1) af cg" - 08 | - 
(4.4.80) 


A, cos ( “ t) wf, | (fy — wh | 


The above solutions show that the motion of the center of mass in the 
(X, Y)-plane is governed by two frequencies. The first frequency is 
one-half of the cyclotron frequency w, and the second frequency is a 
combination of the axial frequency and the cyclotron frequency given by 


Vl (w,/2) -— wh. A plot of the motion in center of mass coordinates is 
given in Figure 4.4.10. The three-dimensional motion of the center of mass 
is governed by three frequencies. The axial frequency V2 wy determines 
the oscillation rate of the center of mass along the z-axis. The halved 
cyclotron frequency w,/2 governs the spinning of the particles around the 
magnetic lines. 
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Motion of the center of mass in space for t € [0, 100]. The initial conditions are 


Fi 4.4.10. : : 
base Xo = 0.5 = Yo, Xo = 0.1 = Yo. The cyclotron frequency is fixed at w.=5. 


4.4.2 Relative Motion of the Ions 


The relative motion of the two ions is governed by Eq. (4.4.64) 


7" = wo (7-3 Z8,) — We (F'X2,) + O* Toe (4.4.81) 

Cylindrical coordinates are the appropriate coordinate system giving an 
efficient description of the relative motion of the particles. Location 7 of 
the relative particle is given in cylindrical coordinates by the representation 


=p 8, +le,, (4.4.82) 


where @, and @, represent the unit vectors in the radial and axial directions, 


respectively. 


Using these coordinates in the equation of motion (4.4.81) gives the 
following representation: 


(p"— peep + (2p'g' + pp"ey +L" — 
Opeptbe.) (4.4.83) 
(Very 


wo(p ep — 268.) + We(—p' ey + pp' ep) = 
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Separating each coordinate direction, we can split Eq. (4.4.83) into a 
system of equations for the coordinates p, y, and ¢: 


Op 


no 12 = 2: '_ eee 
P —pP#P Wo P+ We PP Gipaey > (4.4.84) 
202 EE OEP: (4.4.85) 
W Q 
C"+2uR¢= 24. (4.4.86) 


(Vere) 


By multiplying Eq. (4.4.85) by the radial coordinate p and integrating the 
result, we are able to derive an integral of motion. This integral of motion 
is given by an extended angular momentum containing the cyclotron 
frequency and is thus connected with the magnetic field. The conserved 
quantity is given by 


fp =p p'- S pr. (4.4.87) 


The integral of motion (4.4.87) eliminates the ~ dependence in Eq. 
(4.4.84). The elimination of y reduces the system of equations (4.4.84) and 


(4.4.86) to 
" 2 2 G Q P 
p + (42) —~ we p- 4 ee EN TT 4.4.88 
(5 0) / p (Vp+2 y ( y 
CS nee eee ee 
C'4202L Tae (4.4.89) 


This system of equations contains a multitude of parameters. Our aim is to 
reduce these parameters by appropriately scaling the temporal and spatial 
coordinates. If we consider the expression 6 = (we /2)° — wh > 0 to be 
positive, time is scaled by t = £t. The radial and axial coordinates p and ¢ 


are scaled by the factor d = (Q/ B)?. Introducing the abbreviations 
2 
v = (¢p/ By and A?= (v2 Ww / B) simplifies the system of equations 


(4.4.88) and (4.4.89) to 
" eae Pp 
cae diac: as Woey Vee) , (4.4.90) 
" We = (G : 
CP ACE Wey Vee) (4.4.91) 


containing only two parameters v and A. The handling of Eqs. (4.4.90) and 
(4.4.91) is easier than the four parameter representation in equations 
(4.4.88) and (4.4.89). Note that Eqs. (4.4.90) and (4.4.91) are equivalent 
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to the secular equations of the Paul trap. Both systems of equations are 
derived from a Lagrangian given by 


L= 5 (p? +67) -(5 (@ +24? 0) + Tar + sz). (4.4.92) 
Equations (4.4.90) and (4.4.91) form a highly nonlinear coupled system of 
equations which can only be solved analytically given a special choice of 
parameters A and v [4.5]. If we wish to choose parameters, we need to 
integrate the equations numerically. Mathematica supports numerical 
integrations and we use this property to find numerical solutions for Eqs. 
(4.4.90) and (4.4.91). The package Penning’, a listing is given in Section 
4.6.3, contains the necessary function PenninglI[] to integrate Eqs. (4.4.90) 
and (4.4.91). Function PenninglI[] also provides a_ graphical 
representations of the potential and the path of the relative particle. An 
example of a typical path in the potential is given in Figure 4.4.11. 
Parameters A and y of this figure have been chosen so that the motion of 
the relative particle is regular. Figure 4.4.12 shows a path for parameters A 


and v where chaotic motion is present. 


Relative motion in a Penning trap for A= 1 and y=0. The plot of the particle is 
Figure 4.4.11. superimposed on the effective potential. The numerical integration extends over 
t € [0, 100]. The initial conditions are pp = 1.1, ) = 0.5, 9 = 0.0, and E = 2.0. 
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Relative motion in a Penning trap for A = 1.75 and vy = 0. The plot of the particle is 
Figure 4.4.12. superimposed on the effective potential. The numerical integration extends over 
t € [0, 100]. Initial conditions are pp = 1.0, Z) = 0.0, py = 0.0, and E = 3.0. 


Figures for different initial conditions and parameters can be generated for 
example by 
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PenningI[1.0, 0, 3, 0, 1.1, 100]; 
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The center of mass motion is accessible by the function PenningCMPlot[]: 


PenningCMPlot[0.1, 0.2, 0.01, 0.01, 2.1]; 


By 


4.5 Exercises 


1. Create some pictures for a quadrupole arrangement of charges using 
the package PointCharge'. Choose the location of the charges in the 
representation plane of the potential section. What changes are 
required if your choice of coordinates for the charges is outside the 
representation plane? Perform some experiments with a larger number 
of charges. 


2. Examine the electric potential of a disk segment under several 
boundary conditions using the package BoundaryProblem' (e.g., ®p = 
sin(y) or ®y = y). What changes occur in the potential if we change the 
angle a? Examine the influence of the upper summation index N on 
the accuracy of the solution. 


3. Study the dynamic properties of two ions in a Penning trap for the 
following: 
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a) A vanishing angular momentum (v=0) and different frequency ratios 
A. Which A values result in chaotic motion and in a regular motion of 
the particles? 


b) Find solutions for vy # 0,A = 1 and A = 2. 


c) Examine the parameter combination v = 0 and A = 5. 
4. Develop a Mathematica function to combine the relative and center 
of mass coordinates for a representation of motion in real space for the 


two-ion problem of a Penning trap. 


5. Reexamine the Green's function formalism and discuss the problem 
of a rectangular boundary with one side carrying a constant charge 
distribution. The three other sides are fixed to the ground potential. 


6. Examine a collection of three particles in a Penning trap. 


7. Discuss the motion of two particles in a Penning trap for v# 0 and A 
arbitrary. 


4.6 Packages and Programs 


4.6.1 Point Charges 


Package for the generation of fields, potentials and energy densities. 


BeginPackage ["PointCharge "]; 

(* --- load additional standard packages --- *) 
Needs ["Graphics PlotField™~"]; 

Clear [Potential, Field, EnergyDensity, FieldPlot] ; 
(* --- export functions --- *) 

Potential::usage = "Potential[coordinates List] 
creates the potential of 

an assembly of point charges. The cartesian 


coordinates of the locations of 
the charges are given in the form of 
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{{x,y,z,charge},{x,y,z,charge},...}."; 


Field::usage = "Field[coordinates List] calculates 
the electric field for 

an ensemble of point charges. The cartesian 
coordinates are 

lists in the form of {{x,y,z,charge},{...},...}."; 


EnergyDensity::usage = 

"EnergyDensity [coordinates List] calculates the 
density of the energy for an ensemble of point 
charges. The cartesian 

coordinates are lists in the form of 


{{x,y,z,charge},{...},...}."; 


FieldPlot::usage = 

"FieldPlot [coordinates List,typ ,options _] creates 
a 

ContourPlot for an ensemble of point charges. The 
plot type (Potential, 

Field, or Density) is specified as string in the 
second input variable. The 

third argument allows a change of the Options of 
ContourPlot and 

PlotGradientField."; 


(* --- define the global variables x,y,z --- *) 


x: :usage; 
y::usage; 
zZ::usage; 


Begin["" Private’ "]; 
(* --- determine the potential --- *) 


Potential [coordinates List] := 
Block[{x,y,z}, 
Fold[Plus,0,Map[(#[[4]]/Sqrt[(x-#[[1]])*2 + 
(y-#[[2]])*2 + 
(z-#[1[3]])*2])&, coordinates]]]; 


(* --- calculate the field ---*) 


Field[coordinates List] := 

Block [{field,x,y,z}, 

field = - 
Fold[Plus,0,Map[(#[[411*({x,y,z}-Take[#,31)/ 
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(Sqrt [(x-#[[1]])*2 + 
(y-#[1[2]])*2 + 
(z-#[1[3]])*2 
])*3)&,coordinates]]; 
Simplify [field] 
lie 


(* --- calculate the energy --- *) 


EnergyDensity [coordinates List] := 
Block[{density,x,y,z,field}, 
field = Field[coordinates] ; 
density = field.field/ (8*Pi) 
1; 


(* --- create plots --- *) 


FieldPlot[coordinates List,typ_,options  ]:= 
Block[ 
{pot, ncharges, xmin, xmax, zmin, zmax, xcoord 
= {}, zcoord = {}, 


pll1, p12}, 
ncharges = Length[coordinates] ; 
(* --- determine limits for the plot --- *) 
Do[ 


AppendTo [xcoord, coordinates [[i,1]]]; 
AppendTo [zcoord, coordinates[[i,3]]], 
{i,1,ncharges}]; 

xmax = Max[xcoord] *1.5; 

zmax = Max[zcoord] *1.5; 


xmax = Max[{xmax,zmax}] ; 
zmax = xmax; 

xmin = -xmax; 

zmin = xmin; 


Clear [xcoord, zcoord] ; 


(* --- fix the type of the plot ---*) 
If[typ == "Potential",pot = 

Potential [coordinates] /. y -> 0, 
If[typ == "Field",pot = 

-Potential [coordinates] /. y -> 0, 
If[typ == "EnergyDensity",pot = 


EnergyDensity [coordinates] /. y -> 0, 
Print[" "]; 
Print[" wrong key word! Choose "]; 
Print[" Potential, Field or EnergyDensity "]; 
Print[" to create a plot "]; 
Return [] 
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111; 


(* --- plot the pictures --- *) 
If[typ == "Field", 
pll = 
PlotGradientField[pot, {x,xmin,xmax},{z,zmin, zmax}, 
options, 


PlotPoints->20, 
ColorFunction->Hue 
ie, 


pll= 
ContourPlot [pot, {x,xmin,xmax},{z,zmin, zmax}, 
options, 
PlotPoints->50, 
ColorFunction->Hue, 
Contours->15] 
] 
1; 
End[]; 


EndPackage [] ; 


4.6.2 Boundary Problem 


The following package contains the main calculation steps for determining 
the expansion coefficients in the harmonic series representation of the 


potential. 


BeginPackage["BoundaryProblem™", 
{"Calculus Integration™"}]; 


Clear[Potential]; 
Potential: :usage = 


"Potential[boundary ,R_,alpha_,n_] calculates the 
potential in a circular segment. Input 


parameters are the potential on the 
circle, the radius R of the circle and the 

angle of the segment of the circle. 
The last argument n determines the 
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number of expansion terms used to 
represent the solution."; 


Begin[" Private "]; 


Potential[boundary , R_, alpha_,n_] := 
Block[{listed = {}, int, boundaryh}, 
(*---replace the independent variable 
in the input by Phi---+*)boundaryh = 
boundary /. f [x2_.*x1_] > f[x2*phi]; 
(*---calculate the coefficients 
of the expansion d_n---*) 
int = Integrate[boundaryhs Sin[m« Pix phi/alpha], 
{phi, 0, alpha}] *«R* (m*Pi/alpha) «2/alpha; 
Do[AppendTo[listed, If[m-== 0, 0, int]], {m, 0, n}]; 
(*---calculate the 
potential by using the sum---x) 
pot = Sum[listed[[n1+1]]*xr~* (nl*Pi/alpha) « 
Sin[nl*Pixphi/alpha], {nl1, 0, n}]; 
(*---transform the potential to 
cartesian coordinates---*) 
potl=pot /. {r>Sqrt[x*2+y2], 
phi > ArcTan[x, y] }; 
(*---graphical representation of the 
potential by ContourPlot---x) 
ContourPlot[ pot1 Boole[x? +y’ < R* && y > 0 && 

y < Tan[alpha] x], {x, 0.0001, R}, {y, 0, R}, 
PlotPoints -> 200, ColorFunction -> Hue, 
Contours > 15, PlotRange -> All, Epilog -> 

{Line[{{0, 0}, {RCos[alpha], RSin[alpha] }}]}] 
]; 
End[]; 
EndPackage[]; 


4.6.3 Penning Trap 


This package integrates the equations of motion for the Penning trap. 


BeginPackage ["Penning' "] ; 


Clear [V,PenningI, PenningCMPlot] ; 
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PenningI::usage = "PenningI[r0O ,z0 ,e0 ,n ,1 ,te ] 
determines the numerical 

solution of the equation of motion for the relative 
components. To integrate 

the equations of motion, the initial conditions r0 = 
r(t=0), z0O = z(t=0) and 

the total energy e0 are needed as input parameters. 
The momentum with respect 

to the r direction is set to pr0=0. Parameters 1 and 
n determine the 

shape of the potential. The last argument te 
specifies the end point of 

the integration."; 


PenningCMPlot::usage = 

"PenningCMPlot[x0 ,y0 ,x0d ,y0d ,w_] gives a 
graphical 

representation of the center of mass motion for two 
ions in the Penning trap. 

The plot is created for a fixed cyclotron frequency 
w in cartesian 

coordinates (x,y,z). x0, yO, x0d, and y0d are the 
initial conditions for 

integration."; 


Begin[""~Private"]; 


(* --- potential --- *) 
Vix_, y_, 1, n_] := (x*2 + 1°2*y*2)/2 + n*2/(2*x*2) 
+ 


1/(x*2 + y*2)*(1/2); 


(*--- numerical integration of the relative motion 
er) 


PenningI[r0 ,z0 ,e0 ,n ,1 ,te ]:=Block[{intk,pz0}, 
(* --- initial value of the momentum in z direction 
eaves )) 


pz0 = Sqrt[2*(e0-V[r0,z0,1,n])]; 


(* --- numerical solution of the initial value 
problem --- *) 
intk = NDSolvel[{pr'[t] == n*2/r[t]*3 - r[t] + 
r[t] /(r[t]*2+z[t]*2)* (3/2), 
pz'([t] == -1*2*z[t] + 
z[t]/(c[t]*2+z[t]*2)*(3/2), 
r'[{t] == pr[tl], 


z'[t] == pz[tl], 
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(* --- initial values --- *) 
r[0] == r0, z2[0] == z0, pr[0] == 0, pz[0] 
== pz0}, 
{r,z,pr,pz},{t,0,te}, MaxSteps->6000]; 
(* --- graphical representation --- *) 
(* --- plot the potential --- *) 
Show [ 


Block [{$DisplayFunction=Identity}, 


{Plot3D[V[x,y,1,n]-0.4,{x,-2,2},{y,-2,2},Mesh->False, 
PlotPoints->25], 
(* --- plot the tracks by ParametricPlot3D --- *) 


ParametricPlot3D [Evaluate [{r[t],z[t],V[ir[t],z[t],1,n] 
} /. intk], 
{t,0,te},PlotPoints->1000, 
AxesLabel->{"r","z","v"}] } 
1; 

AxesLabel->{"r","z","v"}, 
Prolog->Thickness[0.001], 
ViewPoint->{1.3,-2.4,2} 


(* --- center of mass motion in the Penning trap --- 
©) 


PenningCMPlot [x0 ,y0 ,x0d_,y0d_,w _]:= Block[{w0, al, 


bi}, 
(* --- fix parameters Omega 0 = 1.0 --- *) 
wO = 1.0; 
al = 0.25; 
b1 = 0.0; 
If[w <= 2*w0,Print[" "]; 
Print[" cyclotron frequency too small"]; 
Print[" choose w > 2"], 
(* --- determine the amplitudes from the initial 
conditions --- *) 
gll = 2¥*ar + 2*br - x0 == 0; 
gl2 = -2*ai - 2*bi - yO == 0; 
g13 = 2*bi*wl + 2*ai*w2 - x0d == 


Ne Ne 


I 
Ul 
oo 


g1l4 = 2*br*wl + 2*ar*w2 - y0d 
result = 
Flatten [N[Solve[{gl1,gl12,g13,g14},{ar,ai,br,bi}]]]; 
(* --- solutions for the center of mass motion --- *) 
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= 2*br*Cos[wl*t] + 2*bi*Sin[wl*t] + 2*ar*Cos [w2*t] 
2*ai*Sin[w2*t] ; 

= 2*ar*Sin[w2*t] - 2*ai*Cos[w2*t] + 2*br*Sin[wl*t] 
2*bi*Cos [w1*t] ; 

= al*Cos[Sqrt[2 w0]*t + bl]; 

* --- define frequencies --- *) 

wl = we/2 + Sqrt[(wce/2)*2 - w0]; 


ANtKM +X 


w2 = we/2 - Sqrt[(wce/2)*2 - w0]; 
(* --- substitute the results result into the 
variables x, y, and z --- *) 


x = Simplify[x /. result]; 
y = Simplifyly /. result]; 


xl = x /. we -> w; 

x2 = y /. we -> w; 

x3 =z /. we -> w; 

(* --- plot the solution --- *) 
ParametricPlot3D[{x1,x2,x3},{t,0,60},AxesLabel->{"x", 
uy", Liga} 


PlotPoints->1000, 
Prolog->Thickness[0.001]] 
elke 
End[]; 
EndPackage [] ; 


5 
Quantum Mechanics 


5.1 Introduction 


Quantum mechanics compared with mechanics is a very young theory. The 
theory emerged at 1900 when Max Planck (see Figure 5.1.1) examined the 
blackbody radiation in thermodynamics. The discovery by Planck was that 
the blackbody radiation can be described by a unified relation interpolating 
between the high-frequency limit proposed by Wien and the low-frequency 
limit favored by Rayleigh. The major assumption by Planck was that the 
energy in this relation is linear in frequency and discrete (EF = hw). Planck 
believed that this quantization applied only to the absorption and emission 
of energy by matter, not to electromagnetic waves themselves. However, it 
turned out to be much more general than he could have imagined. 
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Figure 5.1.1. | Max Planck: born April 23, 1858; died October 4, 1947. 


Another anchorman in quantum mechanics was Erwin Schrodinger (see 
Figure 5.1.2) who invented wave mechanics in 1926. Reading the thesis of 
Louis de Broglie, he was inspired to write down a wave equation which 
established a second approach to mathematically describe quantum 
mechanics. 


Figure 5.1.2. Erwin Schrédinger: born August 12, 1887; died January 4, 1961. 
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It was Werner Heisenberg (see Figure 5.1.3) who first gave a sound 
description of quantum mechanics with his matrix mechanics in 1925. 
Heisenberg was studying a set of quantized probability amplitudes when 
he used a matrix algebra. These amplitudes formed a noncommutative 
algebra. It was Max Born and Jordan in Géttingen who recognized this 
noncommutative algebra to be a matrix algebra. Another fundamental 
achievement by Heisenberg in 1927 was the uncertainty principle which 
governs all quantum mechanical systems. 


Figure 5.1.3. | Werner Heisenberg: born December 5, 1901; died February 1, 1976. 


Today, quantum mechanics is a central theory in physics to describe micro 
and nano phenomena in atomic systems or semiconductors, for example. 
Quantum mechanics in its field-theoretic extensions is important in 
discussions of the unification of fundamental forces. The application of 
quantum mechanics ranges from nano systems up to large-scale systems 
such as black holes. Quantum mechanics is, in terms of its application, by 
no means a self-contained theory. The major open question in quantum 
theory is the unification with the theory of gravitation. 


The current chapter introduces basic concepts of wave functions and 
demonstrates the application of the Schrddinger equation to different 
examples. In Section 5.2 the Schrédinger equation is introduced. Section 
5.3 is concerned with the one-dimensional quantum dot model. Section 5.4 
discusses the harmonic oscillator as a basic system to carry out quantum 
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mechanical calculations. The harmonic oscillator is extended to an 
anharmonic oscillator, which is important in the solution of nonlinear field 
equations. Section 5.6 discusses the motion of a particle in a central force 
field. The last section is concerned with the calculation of the second virial 


coefficient and its quantum mechanical correction. 


5.2 The Schrodinger Equation 


The development of quantum mechanics as a field of study required an 
equation that would adequately describe experimentally observed quantum 
mechanical properties, such as the spectroscopic properties of atoms and 
molecules. In 1926, Schrddinger wrote down the equation of motion for a 
complex field in close analogy to the eikonal equation of optics [5.1]. 
Today, it is known as the Schrédinger equation. The Schrédinger equation 
for a single particle reads 


ih =—- x AWR, 1) + VR)WR, 1), (5.2.1) 


where W(X, t) denotes the wave function, V(X) is an external potential 
representing the source of forces in the quantum system, % is Planck's 
constant, and m the mass of the particle under consideration. 


The Schrédinger equation is a linear equation. It is well known that linear 
partial differential equations allow a superposition of their solutions to 
construct general solutions. Using this information with the two solutions 
yw, and Ww of the Schrddinger equation (5.2.1) allows us to construct the 
solution W = cy % +c2W2, We can identify Schrédinger's equation as a 
diffusion equation if we define an imaginary diffusion constant. To solve 
Schrédinger's equation, we can use, in principle, the same solution 
procedure as for the diffusion equation. For certain initial values and 
known boundary values, we find the evolution of the wave function w by 
Eq. (5.2.1). 


The main problem at the outset of quantum mechanics was the 
interpretation of the wave function w. Although Schrédinger's linear 
equation of motion (5.2.1) is completely deterministic, its solution W(X, f) 
is not a measurable quantity. In fact, the only observable quantities in 
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quantum mechanics are the probability w*w and any mean value based on 
the distribution function w denoted by (Ww |O|W). 


Another consequence of the linearity of the Schrédinger equation is the 
property of dispersion. It is well known that linear equations of motion 
have dispersive waves as solutions. Since Schrédinger's equation (5.2.1) 
contains an imaginary factor i, we can expect the solutions for a free 
particle to undergo oscillations in the time domain. Plane waves are the 
simplest solutions to w. A particular solution of Eq. (5.2.1) with V(X) = 0 


is given by 
ay 1 i (KX-w(K) 1) 
(xX, j= eilk : 
We ( Vin) (5.2.2) 
The superposition of this particular solution delivers the general solution by 
an 1 i(ke- 
x, ) = — Ak ei (kx w(k) 1) a k. 
W(X, 2) aay fps A (5.2.3) 


For simplicity's sake, we limit our consideration to one spatial dimension. 
The solution (5.2.3) of the Schrédinger equation (5.2.1) is known as a 
wave packet. The spectral density A(k) of the packet is completely 
determined by the initial condition W(x, t = 0) = Wo(x). The representation 
(5.2.3) follows from the Fourier transform of the initial condition 


A(k) = = fi Wola) et* d x. (5.2.4) 


Inserting the spectral density into the general solution (5.2.3), we get the 


representation 


W(x, = = Wes is Wo(x") ei KA-*)-W(K)) dk dx! 
1 


2 (625) 
= [vole Ga, x', D dx’, 
where the Green's function G is defined by 
Gy x)= se fh ACO) a, (5.2.6) 


The dispersion relation w(k) of a dispersive wave is given by the defining 
equation of motion. For the Schrédinger equation with vanishing external 
potential V(x) = 0, the dispersion relation is w(k) = hk? /(2m). Assuming 
a localized distribution Wo(x) = 6(x) for the initial condition of the wave 
function, we can write the related solution as follows: 


Wx, = so LE elke k) ak, (5.2.7) 
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This initial condition (assumed to derive the wave function &) cannot be 
normalized. Although this assertion contradicts the quantum mechanical 
interpretation, our only interest here is to show the dispersive behavior of 
the wave function. The constant a =/(2m) is purely numerical. The 
relation (5.2.7) represents a solution of the Schrédinger equation (5.2.1) 
for the case of a free particle located at x=0 with t=0. Since the 
Schrédinger equation describes dispersive phenomena, we can observe a 
broadening of the wave packet diminishing for t-— co. Its shape is 
studied in the following. Replacing k by k = x/Vat in Eq. (5.2.7), we 
obtain 


1 1 OO UK X-K 
W(x, 1) = ae OF fe («/Vat (x) aye (5.2.8) 
Computing the square in the exponent, we get 
Wx, 1) = Ta sh eivl4an ee e-i(x/VFat-x) dk. (5.2.9) 


Substituting [= x/(2 Vat) — K gives us 


2m 


= 1 ei? (4antn/A) 
2Vanmt 


Keita ee (evar 
(e4 CO 
(5.2.10) 


This representation of the wave function for a free particle can be used to 
determine the probability of locating the particle at a certain time. As 
discussed earlier, & is not a function directly observable by experiment. To 
locate a particle at a certain location at a certain time, we have to study the 
probability distribution | w |? of the particle. The probability distribution of 
solution (5.2.10) is given by the expression 


Iv. NP = phe, 


(5.2.11) 


This result shows that the probability of finding a free particle as described 
by Schrédinger's equation vanishes as time goes on. The probability of 
finding a particle at any location decreases with time and vanishes as 
t— oo. The dispersion process of the particle can be represented using 
Mathematica in a sequence of pictures. To animate the dispersion process, 


we first define the wave function w of the free particle: 
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Psi[x_, t_, hbar :1, mass _:1] := 
Block[{alpha}, alpha = hbar / (2 mass) ; 
Exp[I (x*2/ (4 alphat) +Pi/4)]/ (2 Sqrt[alpha t Pi]) ] 


where mass m and 7% are set to unity. By an appropriate scaling of the 
coordinates, we can eliminate these constants in the equation of motion. 
The probability distribution | y in relation (5.2.11) is only a function of 
time and does not show any spatial dependence. However, if we examine 
the wave function itself, we observe the spatial dispersion of the wave. 


In Figure 5.2.4 a time sequence of the real part of the wave function is 


plotted. The pictures are created by 


Time evolution of a wave packet for the Schrédinger equation. Initial conditions are 


Figure 5.2.4. Wale BU: 
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The plots show that the amplitude of the wave function decreases from 
about 0.5 to about 0.1 in a time range of 0.5 to 3.0. The dispersion of the 
wave packet is observable in the wave function. The wave function 
exhibits a reduced amplitude and a broadening of the initial packet. 


The Schrédinger equation (5.2.1) not only describes time-dependent 
properties of quantum mechanical systems but also stationary properties of 
these systems. Contrary to our observations about free particles, we now 
find that Schrédinger's equation describes stable particles. One central 
question for such a system is how to uncover its intrinsic characteristics 
such as the spectral properties. In the following, we examine one of the 
fundamental models of quantum mechanics—the harmonic oscillator. 


Before discussing the spectral properties of the harmonic oscillator, we 
first summarize the solution steps for the time dependent Schrédinger 


equation by a short graphical representation given in Figure 5.2.5. 


1. Starting point of the solution procedure is the partial differential 
equation (PDE) (5.2.1) and the initial solution of the wave function 


W(x, 0). 


2. The use of the Fourier transform allows us to derive the spectral 
density A(x) from the initial conditions. 


3. A complete representation in Fourier space is attained when consider- 
ing the time evolution, which is given by the dispersion relation w(k). 


4. The inversion of the representation in Fourier space delivers the 
solution of the Schrédinger equation. 
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F.T. 
w(x,0) ———A > Ak) 
Cc 
2 
i 5 
[o) 
me 3 
® 
£ 
w(x,t), << A\k) ero 


inverse F.T. 


Figure 5.2.5. Solution steps for a linear PDE by using the Fourier transform. 


A similar solution procedure for nonlinear PDEs is discussed in Chapter 3 
on nonlinear dynamics. 


5.3 One-Dimensional Potential 


In quantum mechanics, the measurement of a physical quantity A can 
result only in one of the eigenvalues of the corresponding operator A. The 
eigenvalues of A forming the spectrum of the operator might be discrete, 
continuous, or both. The eigenfunctions of A form a complete basis that 
can be used to expand an arbitrary wave function. The expansion 
coefficients can be used to determine the probability of finding the system 
in an eigenstate of the operator A with eigenvalue a. Central to quantum 
mechanics is the determination of these eigenvalues and their related 
eigenfunctions. 


One of the fundamental quantities of a quantum dynamical system is its 
energy. The operator corresponding to energy is the Hamiltonian operator 
of the system. The Hamiltonian for a particle with mass m located in a 
potential V is represented by A=-? /2m)A+ V(x). The determination 
of eigenvalues and eigenfunctions is demonstrated with a one-dimensional 
model, the potential well. The potential well of depth V = —Vpo discussed 
in the following extends between —a<x<a where a is the maximum 
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extension. Beyond the maximum extension, the potential vanishes. A 
graphical representation of the potential is given in Figure 5.3.6. 


Figure 5.3.6. The potential well of depth V. 


We study the case for which the kinetic energy of the particle is smaller 
than the minimal potential value Vo (i.e., T < Vo). The total energy E of 
the system is E = T— Vo <0. The particle has a negative total energy in 
the domains | and 3 depicted in Figure 5.3.6. In classical mechanics, the 
particle cannot be found in these regions. Contrary to classical mechanics, 
however, quantum mechanics allows the existence of particles in regions 
where they are classically forbidden. The domains | and 3 are governed by 
the eigenvalue equations Hy =Ew, which are given in a differential 
representation by 


yw" — ew =0, (5.3.12) 


where x* =—2mE/h? >0 is a positive constant containing the total 
energy. Primes denote differentiation with respect to the spatial coordinate. 


The solution of Eq. (5.3.12) represents the domains | and 3 by 


Wy = Ay eX + By ek for  —-o<x<-a, (5.3.13) 
Wy = Ay eX + Bs ok for a<x<o. (5.3.14) 


The related Mathematica result reads 
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s13 = DSolve[0,,.¥[x] - x* W[x] == 0, #, x] // Flatten 


{w > Function[{x}, e*“c) + e** cr]} 


In domain 2 the eigenvalue equation takes the form 


w'+kw=0, (5.3.15) 
where k? = 2 m(Vo + E)/h? > 0. The complete solution of (5.3.15) is given 
by 

Wo = Ar cosk x + By sink x for -a<x<a. (5.3.16) 


The computer algebra result is 


s2 = DSolve[0x,xW[x] +k? w[x] == 0, ¥, x] // Flatten 


{w > Function[{x}, c; cos(k x) + cz sin(k x)]} 


From the normalization condition, it follows that the eigenfunctions given 
by relations (5.3.13) and (5.3.14) require that the coefficients B, and A3 
vanish (i.e., Bj = Az = 0). The remaining parameters A,, By, Az and B3 are 
determined by applying the continuity condition of the wave function and 


its first derivative at the end points of the potential well (x = —a and x = a). 


The normalization condition requires 


psl = [x] /. 813 /. {C[1] + Al, C[2] > B1} /. B1->0 


Ale** 


and 


ps3 = ¥[x] /. 813 /. {C[1] > A3, C[2] > B3} /. A3 -> 0 


B3e** 
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The conditions on the domain boundaries read 


Wi=Y% — and Wi =H for x=-a, (5.3.17) 
Wr = 3 and WV = Ws for x= a (5.3.18) 


which can be given as 


eql = ps1 == (w[x] /. s2/. {C[1] + A2, C[2] >» B2}) /.x7>-a 


Al e“* == A2cos(ak) — B2 sin(ak) 


eq2 = 
6,psl1 == (0,%[x] /. s2/. {C[1] > A2, C[2] >B2}) /.x7>-a 


Ale“* xk == B2kcos(ak) + A2k sin(ak) 


eq3 = ps3 == (w[x] /. s2/. {C[1] + A2, C[2] > B2}) /.x7a 


B3 e“* == A2 cos(ak) + B2 sin(ak) 


and 


eq4 = 
0,ps3 == (0,¥[x] /. s2/. {C[1] >» A2, C[2] »B2}) /.x7a 


-B3 e°*“ k == B2kcos(ak) — A2k sin(ak) 


The four equations form a homogeneous system of equations for the 
unknowns A, B3, Az, and B,. In a matrix representation, we get 


e“*  —cos(k a) sinfka) 0O Ay 
Ke *k4 —ksin(k a) —kcos(ka) 0 A> ; 
0 -cos(k a) —sin(k a) e-ka Re (5.3.19) 


0 ksin(k a) —kcos(ka) -ke** J\ By 
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A nontrivial solution of Eq. (5.3.19) exists if the determinant of the matrix 
vanishes. This condition delivers the relation 


Ke -—k? +2Kkcot(2ka) =0 (5.3.20) 


deti1 = 
Map[Coefficient[({eql, eq2, eq3, eq4} /. Equal[a_, 
b_]:>a-b), #] &, 
{Al, A2, B2, B3}] // Transpose // Det // Simplify 


e°4* 2k xcos(2.ak) + (k* — k’) sin(2ak)) 


with solutions 


k= ktan(ka), (5.3.21) 
k= —kcot(ka). (5.3.22) 


spectral = MapAll[PowerExpand[#] &, Simplify[ 
Flatten[Solve[detl == 0, x]]]] // FullSimplify 


{x > -—k cot(ak), xk > k tan(ak)} 


If we consider the first of these relations (5.3.21), we find that B) = 0, 
B3 = Aj, and Ap coska = A, e *““. The second relation, (5.3.22), results in 
the conditions A, = 0, B3 = —A),, and B) sinka = —A, e**. 


soll = Solve[{eql, eq2, eq3, eq4} /. spectral[1], 
{Al, B2, A2, B3}] // Simplify // Flatten 


Solve::svars : Equations may not give solutions for all "solve" variables. More... 


{Al > —B3, B2 > B3 e@*"@® cgc(ak), A2 > 0} 
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sol2 = Solve[{eql, eq2, eq3, eq4} /. spectral[2], 
{Al, A2, B2, B3}] // Simplify // Flatten 


Solve::svars : Equations may not give solutions for all "solve" variables. More... 


{Al > B3, A2 > B3 e-7* "@ sec(ak), B2 > 0} 


We can thus distinguish between two systems of eigenfunctions: a 
symmetric one and an antisymmetric one. The symmetry of the 
eigenfunctions is obvious if we exchange the coordinates by x > —x. The 


symmetrical case is represented by 


K= ktan(ka), (5.3.23) 

w= Ae,” (5.3.24) 
= —xq COS(k x) 

Wo = At e cos(k a) ’ (5.3.25) 

W3=A,e** (5.3.26) 


wls = ps1 /.sol2/. spectral[2] 


B3 é& xtan(ak) 


w2s=w[x] /.s2/. {C[1] »A2, C[2] > B2}/.sol2/. 
spectral[2] 


B3 ek tan(ak) cos(k x) sec(a k) 


y3s = ps3 /. sol2/. spectral[2] 


B3 ek x tan(ak) 


The antisymmetric case follows from the relations 


« = —kcot(k a), (5.3.27) 

Wy = -Ae, (5.3.28) 
= —xq Sink x) 

Yo =Aje sin(k a) ’ (5.3.29) 


W3=A,e** (5.3.30) 
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wla=psl1/.soll/. spectral[1] 


—-B3 ek xcot(ak) 


yw2a=w[x] /.s2/. {C[1] » A2, C[2] > B2}/.soll/. 
spectral[1] 


B3 e k cot(ak) csc(a k) sin(k x) 


y3a=ps3 /. soll /. spectral[1] 


B3 é xcot(ak) 


From the normalization condition 


Lov dea [evi det fi det [PB dx, (5.3.31) 


we get a relation for the undetermined amplitude A, 


seid 1 2 
ap = ae? (1 +44 a (5.3.32) 


Relation (5.3.32) is satisfied for both the symmetric and antisymmetric 
eigenfunctions. To calculate the eigenvalues, note that 
Kk +k? =2mVo/h? >0 is independent of the total energy E. If we 


introduce the parameter 
Ca@2mB =(2 +R) a, (5.3.33) 


we can eliminate x from the eigenvalue equations. The equations 


determining the eigenvalues are now 
C2-(k a)? 
v - Or eianie gi, (5.3.34) 


= — = tan(ka). 
x). C2-(k ay (5.3.35) 


Using relation (5.3.34) or (5.3.35), we can calculate ka and 
E=f? kk? -2mVo. 
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The problem with the potential well is not the derivation of its solution but 
the calculation of the eigenvalues determined by Eqs. (5.3.34) and 
(5.3.35). In the package QuantumWell (see Section 5.8.1), we solve the 
problem numerically for varying well depths Vo and well widths a. 
Because the two determining equations of the eigenvalues are transcendent 
equations, we have to switch to numeric calculations. The left-hand and 
right-hand sides of Eqs. (5.3.34) and (5.3.35) are graphically represented 
in Figure 5.3.7 for Vo = 12 anda = 1. 


Graphical representation of the eigenvalue equation for Vo = 12 and a = 1. The solid curves 


Figure 5.3.7. represent the symmetrical case and the dashed curves represent the antisymmetric case. The 
right-hand side of the eigenvalue equation reads tan k a. 


Figure 5.3.7 is created by means of the function Spectrum[12,1] defined 
in the package QuantumWell’. Also defined in the package 
QuantumWell’ are the eigenfunctions PsiSym[] and PsiASym[]. The 
function Spectrum[] provides us with a graphical representation of the 
eigenfunctions and prints out the related eigenvalues in a list. Some 
examples of these eigenfunctions are given in Figures 5.3.8 and 5.3.9. 
Function Spectrum[] creates a sequence of eigenfunction pictures starting 
with the symmetric ones followed by the antisymmetric ones. Figures 
5.3.8 and 5.3.9 contain the superposition of these sequences into one 
picture. 


5. Quantum Mechanics 603 


—0.25 | k,=1.3018 | 


Figure 5.3.8. 


w 
= 


—0.25 
-0.5 
-0.75 


Figure 5.3.9. 


0.75 


0.25 


ko=3.8185 


—2 —1 0 1 2 
xX 


The symmetric eigenfunctions for a potential well with depth Vo = 12 and width a = 1. For 
the given potential depth, there are a total of four eigenvalues, two of which are shown in 
this figure and the other two are shown in the next figure. The solid eigenfunction with a 
broad single maximum and no nodes is related to the lowest eigenvalue k =1.30183 of the 
symmetric case. The second symmetric eigenvalue is k =3.81858. The corresponding 
eigenfunction is dashed. 


0.5 


0 


k,=2.5856 
kKo=4.8515 


—2 —1 0 1 2 
X 


The antisymmetric eigenfunction for the potential with Vo = 12 and a=1. The two 
antisymmetric eigenfunctions are correlated with the eigenvalues k =2.5856 and k =4.85759. 
The first eigenfunction is represented by a solid curve and the second is dashed. 


The sequence of eigenfunctions and eignvalues for different potential 


depths Vp are generated with the function Spectrum[]. For a potential 


depth of Vo = 44 with a potential with a = 2 we find 
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Spectrum[44, 2] 


ii) | | 
wth | | | | 
SSL 
Cee ee: 
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~15| | 
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j= 6.67289 


ki= 8.11658 
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Vi 
kj= 2.97996 


1\ 


Vi 


Vi 
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Vi 
kj= 7.39956 


x< 
OrNoOnyo 
oO oO oO Oo 
1 | | 


Vi 


x< 
OtNONYO 
ooO°O oO oO 
| | | 


eigenvalues ---- 


1.49099 


0.745615 asym eigenvalue kl 


2.97996 


4.46439 


5.94032 


7.39956 


8.81407 


3.72294 asym eigenvalue k2 


3.72294 asym eigenvalue k3 


5.20377 asym eigenvalue k4 


6.67289 asym eigenvalue k5 


8.11658 asym eigenvalue k6 


sym eigenvalue kl 


sym eigenvalue k2 


sym eigenvalue k3 


sym eigenvalue k4 


sym eigenvalue k5 


sym eigenvalue k6 
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The result is a system allowing 12 eigenvalues corresponding to 6 


symmetric and 6 antisymmetric eigenfunctions. 


5.4 The Harmonic Oscillator 


The potential energy for a stable system exhibits a local minimum. One of 
the standard methods of physics is to expand the potential energy around 
the point of a local minimum in a Taylor series, 


v=vo+ 4 (5) 


7 BO Bisse 


itty , (5.4.36) 


where x denotes the displacement from the equilibrium point. The 
potential satisfies 0V/Ox=0 at the stable equilibrium point. If the 
particle of mass m only undergoes small oscillations around the 
equilibrium point, the first two terms of relation (5.4.36) are sufficient to 
describe the potential energy. Choosing the origin of the energy to be 
identical with V(O) of the expansion, we can express the Hamiltonian of 
the harmonic oscillator 

2 


Dp 
Hy = 5 


kK 2 
Pek (5.4.37) 


> 


where k =0°V/0 x 


-0 is the spring constant of the oscillator. We 


already know that the classical solution for the harmonic oscillator is given 


by a periodic function 


x(t) = A cos(wt + 8) where w = | - (5.4.38) 


and the system undergoes harmonic oscillations around the equilibrium 
point. The time average of the total energy follows from relations (5.4.37) 
and (5.4.38) 


610 


5.4 Harmonic Oscillator 


{E)r = 
> O:x[t])? k 

= f (AS + = x(t1"| /.x->Function[t, 

mu 0 

Acostwt«#11| dt // simpiity| /.k->w?m 

= A? mu 
2 
(Eyp = 4 mA? Ww = mu? X?, (5.4.39) 


where 7 denotes the period of the oscillation; that is, the time-averaged 


energy depends quadratically on the amplitude A of the oscillations. 


In this section, our aim is to examine the quantum mechanical properties of 
the harmonic oscillator and compare them with the classical situation. The 
transition from classical to quantum mechanics is formally achieved by 
replacing the classical coordinates with quantum mechanical operators: 
x7>X and p> p=h/i0d,. Using the transformations in the Hamiltonian 


yields the timeless Schrddinger equation in the form of an eigenvalue 


problem given by 
da Dads 2mnE 
(sar - St + Sue =0, (5.4.40) 


where W denotes the set of eigenfunctions of the Hamiltonian. By an 
appropriate scaling of the spatial coordinate € = Vmw/h x and of the 
eigenvalue ¢=2E/(hw), we get the eigenvalue problem in a standard 


form 


(fe -€ +e)uo=0. (5.4.41) 


eigenValueEquation = 0¢,-y[§] -€? y[€] +ev[€] == 


WH +ev+wW'(S =0 


The question here is what type of function W(€) satisfies Eq. (5.4.41). As a 


solution, we try the expression 


We) = (Ee? (5.4.42) 
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~€2 
ansatz = y-> Function|€, v[é] ez | 


yo Function|é, v(é) e*| 


From Eq. (5.4.41), it follows that the amplitude v has to satisfy the ODE 
v"'-2€v'+(e- 1) v(é) =0, (5.4.43) 


trans formedEVeq = 
eigenValueEquation/. ansatz // Simplify 


eF (e- Iv -2éVO+ Vv") =0 


where primes denote differentiation with respect to €. To be physically 
acceptable, the wave function W(é) must be continuous and finite. The 
amplitude vw(é) defined by Eq. (5.4.43) is a finite function if v is a 
polynomial of finite order. 


solution = DSolve[transformedEVeq, v, €] // Flatten 


{v > Function] {é}, Cl Het (€) +c F(z > alt 


This type of solutions exists if 
€=2n+1, wheren=0, 1, 2, .... (5.4.44) 


For each value n there exists a polynomial of order 1 which satisfies Eq. 
(5.4.43). These polynomials are known as Hermite polynomials, defined by 

A, = (-" & oe. (5.4.45) 
In Mathematica, the Hermite polynomials are identified by the function 
HermiteH[]. The solutions of the eigenvalue problem become with the 
eigenvalues 
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eigenValues = e>2n+1 


ée72n+1 


a two-component solution determined by c; and c2, the integration 


constants 


ve =v[€&] /. solution /. eigenValues 


1 


ie 


N|s 


ce, A,(€) + cy iF\(- 


it is known that the hypergeometric function ; F is divergent for € > +00 
Thus, we can chose c2 = 0. The eigenfunctions thus are determined by 


ve =v -> Function[€, $v] /. $v -> (ve /. C[2] -> 0) 


v > Function[é, c, H,()] 


The eigenfunctions thus can be written 


ps = w[x] /. ansatz /. ve 


wht 


e-? c H,(x) 


where c; is a constant determined by the normalization. The wave function 


W of the harmonic oscillator is represented in scaled coordinates by 
(5.4.46) 


HO e#?. 


4.6) = = 
y nto Vir 


The corresponding eigenvalues of the harmonic oscillator are 
(5.4.47) 


1 
E,=hw (n + ai 
Each eigenvalue has its own eigenfunction which is either even or odd 


with respect to coordinate reflections in €. Note that the eigenvalues and 


5. Quantum Mechanics 613 


eigenfunctions have a one-to-one correspondence (i.e. the spectrum is 
non-degenerate). The first four even and odd eigenfunctions of the 
harmonic oscillator are depicted in figures 5.4.10 and 5.4.11. 


The probability distribution ||? of finding the harmonic oscillator in a 
certain state n in the range & + d € is given by 


[WP dé = Se Hie dE = Wand €. (5.4.48) 


n! 2” 


The classical probability of finding a particle in the range x+d¥x is 
determined by the period T of the oscillator. 


wa = $= sod, (5.4.49) 


|v 


where x(t) is represented by the classical solution (5.4.38). The 
corresponding velocity v follows from the time derivative of x: 


v=-Aw,/1-(4). (5.4.50) 


In scaled variables € we find for the classical probability the relation 


aes. See oe eee ree 
Welé) = DN DL V1-2/(Qn+l) : (5.4.51) 


Specifying either the energy or the eigenvalue of the harmonic oscillator 
enables us to compare the classical probability with the quantum 
mechanical result. A graphical representation of these two quantities is 
given in Figures 5.4.12 and 5.4.13. Figure 5.4.12 shows the ground state 
and Figure 5.4.13 shows the eigenvalue with n = 5. It can be clearly seen 
that the quantum mechanical behavior of the probability density is 
different from its classical behavior. In the classical case, the particle 
spends most of its time near the two turning points, where the density | w |? 
is large. Quantum mechanically, there is a high probability that the particle 
is located near the center of the potential (ground state). In an excited 
state, we observe regions where the particle cannot be found (see Figure 
5.4.13). This is due to the fact that the quantum mechanical probability 
density oscillates for n>0, which, in turn, is a consequence of the 
oscillations of the wave function. 


At the classical turning points, a completely different behavior of the 
quantum particle is apparent. Where the classical particle cannot be found 
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in quantum mechanics, there is a finite probability for locating a particle 
outside the potential well. This tunneling of the particle into the potential 


barrier is unusual and cannot be explained by classical mechanics. 


The eigenfunctions and the harmonic potential V(&) are superimposed on 
each other in Figures 5.4.10 and 5.4.11. The related classical and quantum 
mechanical probabilities are shown in Figures 5.4.12 and 5.4.13. The 
functions to create these figures for certain eigenvalues are contained in 


the package HarmonicOscillator® (see Section 5.8.2). 


-4 =p 2 4 


Symmetric eigenfunctions of the harmonic oscillator V(x) =x? for eigenvalues 
Figure 5.4.10. n =0,2,4,8. The eigenfunctions are centered around the energetic levels 
E=hw(n+1/2) corresponding to the eigenvalues n. 
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X 
<4 2p : 4 


Antisymmetric eigenfunctions of the harmonic oscillator V(x) =x? for eigenvalues 
Figure 5.4.11. n =1, 3,5, 9. The eigenfunctions are centered around the energy levels E = hw (n+ 1/2) 
corresponding to the eigenvalues n. 


Xx 
—2 —1 1 2 


Classical and quantum mechanical probability density for the harmonic oscillator in the 
Figure 5.4.12. ground state. The classical probability shows a singular behavior at the turning points of 
the motion. 
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Wki Wam 


24 -2 2 4 


Comparison between the classical and quantum mechanical probability density for the 
Figure 5.4.13. eigenvalue n = 5. The singular points of the classical probability w. are located at 
x= + 3.316. 


The given derivation of the wave function is based on the defining 
equation of the Hermite polynomials (5.4.41). The solution of the scaled 
equation (5.4.41) delivers the complete set of eigenfunctions in one step. 
In the following, we show how the set of eigenfunctions can be derived by 
an iterative procedure involving creation and annihilation operators a* and 
a. All of the eigenfunctions are created out of the ground state of the 
harmonic oscillator, 


Wo(x) = 7 ef? (5.4.52) 


The whole set of eigenfunctions can be created using the following 
creation and annihilation operators a* and a, which act in the spatial and 


momentum space: 


Jes = (e- $) = a (é-ip), (5.4.53) 
ie + (E+ #) 2 Fe (E+i)). (5.4.54) 


The name of the operators stems from the action of the wave functions 
respectively creating and annihilating a quantum mechanical state. The 
actions of operators a* and a~ can be demonstrated by introducing two 
functions aminus[] and across[]. The definitions are given below and use 
the representations of Eqs. (5.4.53) and (5.4.54). 
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1 
aminus[y , € : €] := —— (€ p+ dep) 
V2 


1 
across[py , € : €] := —— (€p- dep) 
V2 


If we apply the defined functions to the ground state, we get the first 
excited state or, simply, zero. The definition of the ground state is 
contained in the function W,. 


1 


ns aa Vr 


Ym [E€_] := HermiteH[n, &] aa 


We get from the application of the generating operator 


across [%[€]] 


V2 et é 


Va 


The anhilation operator appled to the ground state gives 


aminus [Wo [€]] 


Comparing the Mathematica result with the first excited state w,, we find 


that they are equivalent. 


across[wW[§]] == %1[&€] // Simplify 


True 
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This is also true if we incorporate the factor Vn! on the right-hand side 
for higher n. The higher eigenfunctions are derived from the ground state 
by the relation 


Wal€) = a7 (a*y" Wo(x). (5.4.55) 


Repeatedly applying an operator is achieved by using the function Nest[]. 


Nest[across, %[¢€], 5] // Simplify 


V2 «© é(4é4 -20€ + 15) 
Vi 


We assume that yw, is a function of €. When using Nest[], we can 
repeatedly apply the function across[] to the wave function Psi[]. The 
number of applications of across[] to w, is controlled by the second 
argument of Nest[]. In the above example, we applied across[] five times 
to w,. The result is the representation of ws. If we are interested in the 


functions preceding Ws, we can use NestList[] instead. 


whist = NestList[across, W[€], 5] // Simplify 


> 


tex V2eTe eT Q2-1) We TEQL-3) 
Vr Van Vn 
et 46-122 +3) Voie = Ee oe 19) 


The unnormalized wave functions contained in the list wList are 
eigenfunctions of the harmonic oscillator. To determine the normalization 


factors, we integrate WList over the total space: 
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norm = 1 / [map t (fo # dé) &, Expand[wpList?]] 


1 1 1 1 


V2’ V6 2V6° 230 


{15-3 


The normalized eigenfunctions are now given by 


whist = ~List norm 


2 
"20 


(e VeSe ef 08-1) eT EQL-3) 
Va Vn DVB 
ef 4é- 12243) se iu ae ane} 


2V6 Va 2V15 Va 


The preceding functions are collected in the package Harmonic- 
Oscillator’. A complete listing is contained in Section 5.8.2. 


5.5 Anharmonic Oscillator 


So far, we have discussed problems which assume harmonic particle 
motion. In real systems, harmonic motion is the exception rather than the 
rule. In general, forces are not proportional to linear displacements. From 
the example of the pendulum in classical mechanics (see Section 2.4.8.6), 
we recall that the restoring force is not proportional to linear 
displacements. Another example is that of large molecules in quantum 
chemistry: In contrast to the binding potential of a diatomic molecule 


[5.2], the forces between atoms in a large molecule are anharmonic. 


The classical work on anharmonic forces in quantum mechanics was 
initiated by Péschel and Teller [5.3], who examined the single anharmonic 
oscillator. Lotmar [5.4] in 1935 studied an ensemble of anharmonic 
oscillators and established their connection with large molecules. We 
examine here an altered Péschel—Teller potential, which today is used in 


the inverse scattering method of solving nonlinear evolution equations (see 
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Chapter 3). The interaction potential for a quantum mechanical system was 
given by Fliigge [5.5] in the form 


V(x) = —Vo sech’ x, (5.5.56) 


where Vp is a constant determining the depth of the potential well. The 


related stationary Schrédinger equation in scaled variables reads 


ad 2 
(fa +A 4 Vo sech x Wx) = 0. (5.5.57) 


PTEVproblem = 0,,.W[x] + (A+ Vo Sech[x]”) w[x] == 


(Vo sech?(x) + A) W(x) + W(x) == 0 


In our examination, we determine the eigenvalues A=2mE /h?, which 
depend on the potential depth Vp. Another point of our study is the form of 
the wave functions in the asymptotic range |x|-— oo. We first introduce 
some changes in the notation of Eq. (5.5.57). Substituting for the 
independent variable x using the relation € = tanh(x) in Eq. (5.5.57), we 
can carry out the transformation by 


tl = PTEVproblem/. y > Function[y, #[€[y]]] 


WE) & (x) + (Vo sech”(x) + A) WE(a)) + WE) EX) = 0 


then we replace the new dependent variable € by 


t2 =t1/. € -> Function[x, Tanh[x] ] 


w’(tanh(x)) sech* (x) — 
2 tanh(x) y’ (tanh(x)) sech?(x) + (Vo sech?(x) + A) (tanh(x)) == 0 


Using the inverse of the hyperbolic tan, we get 
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t3 =t2/.x->ArcTanh[€] /.A->-A 


W(OA-&y -2€WO0-&2)+(1-2)V-HWO =0 


which in traditional representation is 
2) _d_ 2) dv 2))\ = 
(1-27) Fe (1 -é) dé )+ A+ Vol -&))~=0 where (5.5.58) 
-1<é<1l, 
or the equivalent standard representation of Eq. (5.5.58) 
d d A 
fe (1-2) FE) + (Yo + qAz)u =0. (5.5.59) 


Equation (5.5.59) is the defining equation for the associated Legendre 
polynomials, which is checked by the line 


solution = DSolve[t3, w, €] // Flatten 


x x 


{v> Funetion|(é}, er PY yayar +62 OV yar -y O]} 


A graphical check of the two Legendre polynomials shows that Legendre 


"is divergent at the boundaries, 
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Plot [Evaluate[ 
(W[E] /. solution /. {Vo 9N (N+1), A->n?7}) /. 
{N-> 25, n->2, C[1] -> 0, C[2] ->1}], 
{€, -1, 1}, AxesLabel -> {"€", "w"}]; 


200 


a 


—200 


—s 


~400 | 


whereas the Legendre P", is finite at the boundaries, 


Plot [Evaluate[ 
(W[E] /. solution /. {Vo 9N (N+1), A->n?7}) /. 
{N-> 4, n->2, C[1] ->1, C[2] -> 0}], 
{€, -1, 1}, AxesLabel -> {"€", "W"}]; 


0.5 1 
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Thus, for a finite solution of the Péschel-Teller problem we have to 


assume that c) = 0. The solution then becomes 


solutionPT = solution /. C[2] ->0 


{v > Function] {é}, cl PY agar +0 OY vaqar-y)} 


z 


For the solution of Eq. (5.5.59), we assume, in addition, that the potential 
depth is given by positive integer Vp) = N(N + 1), where N is a positive 
number. Equation (5.5.59) possesses discrete bound solutions in the range 
€e[-1,1] if and only if A=-n*<O with n=1,2, ..,N. The 
eigenfunctions of the Schrédinger equation (5.5.59) are proportional to the 
associated Legendre functions P{,(€) defined mathematically by 


nl2 dn 


P(E) = (-D"L- 8)" Gar Pv, (5.5.60) 


where Py(&) are the Legendre polynomials of degree N: 


1 dN N 
Py(®) = Wraw aen (2-1). (5.5.61) 
The constant connecting the Legendre functions with the eigenfunctions of 
the Péschel-Teller problem is a product of the normalization condition 
and the eigenfunctions. The following function represents the 
eigenfunctions of the Péschel—Teller system. The associated Legendre 


polynomials are given by the function LegendreP[]. 
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PoeschelTeller[x , n_ Integer, N Integer] := 
Block[{norm, integrand, xi}, 
If —_n <= N && n > 0, 


(* --- the associated Legendre polynomial specify 
the eigenfunction --- *) 
integrand = LegendreP[N, n, xi]; 
(* --- determine the normalization constant --- *) 
norm = Integrate[integrand*2/(1-xi*2), {xi, -1, 
1}1; 
(* --- normalize the eigenfunctions --- *) 


integrand = integrand/Sqrt[norm] /. xi -> 
Tanh [x] ; 
Simplify [integrand], 


(* --- check errors in the input parameters --- *) 
If [N<n, 
Print["--- wrong argument n > N"]]; 
If[n<0, 
Print["--- wrong argument n < 0"]]] 


] 


The eigenfunctions for N = 4 are 


Table [PoeschelTeller[x,i,4],{i,1,4}] 


(5 V5 Vcosh(2 x) + sinh(2 x) (tanh(x) — 1) tanh(x) (7 tanh?(x) — 3), 


+ V5 (3cosh(2 x) — 4) sech*(x), — + ¥105 Vcosh(2 x) + sinh(2 x) 


2. sech*(x)} 


(tanh(x) — 1° tanh(x) (tanh(x) + 1), z | 5 


The results for n = 1 and n = 3 are graphically represented in Figure 5.5.14: 
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—0.75 | 


Eigenfunctions of the modified Péschel—Teller potential for discrete eigenvalues n = 1 


ss a acrees (solid) and n = 3 (dashed) at N = 4. 


So far we derived the discrete spectrum of the modified Péschel—Teller 
problem. In the following we consider the continuous eigenvalues 
AX =k? > 0 of the stationary Schrédinger Eq. (5.5.59). The eigenfunctions 
thus read 


~ik/2 
Wx; k) = atk) (+5) oF (a, b; 2; 4), (5.5.62) 


where @=1/2-ik+VVo+1/4, b=1/2-ik-VVo+1/4 and 
¢=1-ik are constants depending on the model parameters and the 
eigenvalues. The label ./', denotes the Gaussian hypergeometric function. 
In the limit x > oo sech(x) = V1-2 =2e*/(1+e2")~2e™ and the 
solution reduces to the form W ~ a(k) e7'**. The explicit representation in 
the limit € > —1 of the solution (5.5.62) is given by 


W(x; k) = alk) et (1 # ab (1+é)+ o?)). (5.5.63) 


The asymptotic expansion of the hypergeometric function 2F; is carried 
out by first replacing the argument 4 (1 + €) with z and then by expanding 
2F up to first order around z = 0 
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Series [Hypergeometric2F1[a,b,c,z],{z,0,1}] 


b 
1+ — + O(z’) 


Hence, the leading term in the asymptotic representation of the 


eigenfunction w for x > —oo is 


W~ alk) ets, (5.5.64) 


In the other limit x — co, we first transform the hypergeometric function 
using the linear transformation F(a, b,c,z)= d 2F\(a, b,c, 1-2), 


yielding 


(5.5.65) 


Pd+igTei) 
1(4-ik+y ord )0(4-ik fVort } 


1 1 1 | 7 
77 Votqsat Vo+ 5 


iar, Pd-ik) PGW) 
7D revved) (Ved) 


AIR 


_¢ ik 
(56) oF 


\ 


If the potential depth is of the form Vo =N(N +1), we observe that 
1/2- VVo+1 /4 is always a negative integer. Since the function I" is 
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singular for these points, the second term on the right hand side always 
vanishes. Taking this into account (5.5.65) reduces to 


oF 4 ik+ Vott, 
ee Valea de VL 1-é \ik 
y ~ik-.[ Vo+ g sl -iks >> |=(>) 
(5.5.66) 
oF +- Word de fme dite]. 
Td4+ik) T(-ik) 
U(5-ik+y Vors )U(5-ik-y Vo+$ ] 
In the limit x > co, the wave function wW has the representation 
w~ etx + b(k) ef, (5.5.67) 


where b(k) is the reflection coefficient of the wave. Relation (5.5.67) 
means that an incoming wave of amplitude | is reflected by a part 
determined by b(k). 


An asymptotic expansion of the hypergeometric function for €-> 1 
consequently gives us the representation in the form 


TU+ik) P(-ik) 


Ag EI ENS ER) Boh hx 
wo r(4 ik+y Vors JI(4 ik VV%o+5 | a (5.5.68) 


Comparing relation (5.5.68) with (5.5.67), we observe that the reflection 


coefficient of the wave vanishes. The transmission coefficient a(k) in the 
case Vo = N(N + 1) takes the form 


I(5-ik+y Vors )I(5-ik-y Vo+$ ] (5.5.69) 


Tati (ik 


a(k) = 


A wave is free of reflection if the potential takes the form V = Vo sech(x) 


and the depth of the potential is an integer number Vo = N (N + 1). 


For Vo = N(N + 1), the entire calculation procedure can be activated by 
AsymptoticPT[] which is part of the package Anharmonic- 
Oscillator*(see Section 5.8.3). By calling AsymptoticPT[] we get the 
asymptotic representation of the eigenfunction in the limits x > +oo. The 
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results of the expansion are contained in the global variables wla and 
w2a. Function AsymptoticPT[] can also handle the case in which N is an 
integer. In addition to the eigenfunction, function AsymptoticPT[] 
delivers information about the reflection and transmission coefficients | b |” 
and|a|*. These two characteristic properties of the scattering problem 
satisfy|a|? +|b|?=1. PlotPT[], which is also part of the package 
AnharmonicOscillator’, gives a graphical representation of the reflection 
and transmission coefficients. This function plots five curves for different 
k values. The range of the k values is specified as first and second 
arguments in the function PlotPT[]. The third argument of PlotPT[] 
determines the coefficient. We can choose between two types of 
coefficient. Whereas ''t" will create a plot for the transition coefficient, the 
"r"' string will create the reflection plot. Two examples for k ini = 0.05 and 
Kena = 0.5 are given in Figures 5.5.15 and 5.5.16. The pictures are created 
by 


PlotPT[0.05, .5, "r"]; 


Ib|? 
; 


0.8 —— 
0.6 : 

0.4 
0.2 


N 
1.2 1.4 1.6 1.8 2 


The reflection coefficient ||? is plotted as a function of N. The ensemble of curves 
represent the reflection coefficient for energy values k in the interval k € [0.05, 0.5] for 
N €[I, 2]. The top curve represents the value k =0.05. The other k values > 0.05 follow 
below the top curve. 


Figure 5.5.15. 


and 


PlotPT[0.05, .5, "t"]; 
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lal? 
: 


0.8 
0.6 
0.4 
0.2 


—— =o N 
1.2 1.4 1.6 1.8 2 
The transmission coefficient |a|? of the Péschel-Teller potential is plotted across the 


Figure 5.5.16. depth parameter N of the potential. The energy values k are taken from the interval 
k € [0.05, 0.5] for N € [1, 2]. The lowest curve corresponds to k =0.05. 


The structure represented in Figures 5.5.15 and 5.5.16 is repeated in each 
of the intervals {VN,N+1|Nz21}. Two neighboring intervals for a 
potential depth ranging between Vp = 2 and Vo = 6 (N = | and N = 2) are 
represented in Figure 5.5.17. In this figure, the reflection coefficient is 


shown for a range of k values by means of a surface plot. The pictures are 
created by the sequence 


th = AsymptoticPT[NN, kk]; 


Plot3D[Evaluate[th[2]], {NN, 1, 3}, 
{kk, 0.05, 0.75}, AxesLabel > {"N", "k", "|b|? Wp 
PlotPoints -> 30, Mesh -> False]; 
Plot3D[Evaluate[th[1]], {NN, 1, 3}, {kk, 0.05, 0.75}, 
AxesLabel > {"N", "k", "|a|? "j, 
PlotPoints -> 30, Mesh -> False]; 
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The reflection and transmission coefficient is plotted as a function of N and k. The values 
for the potential depth are taken from N € [1, 3] and the energy interval is k € [0.05, 0.75]. 
We observe that the reflection coefficient decreases as the energy increases. On the other 
hand, the transmission coefficient increases with the increase in energy. 


Figure 5.5.17. 


A collection of functions examining the anharmonic Pdéschel-Teller 
potential is contained in the package AnharmonicOscillator’. Useful 
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functions in examining the anharmonic model are PoeschelTeller[], 
AsymptoticPT[] and PlotPT[] (compare the complete listing in Section 
5.8.3). 


5.6 Motion in the Central Force Field 


The stationary states of a particle in a spherically symmetric potential are 
determined by the Schrédinger equation with the Hamiltonian operator 
A--2 vive (5.6.70) 
~ 2m a ne 


where r= V x2 + y2+22 measures the distance of the particle from the 
origin of the potential. Using the spherical symmetry of the problem, we 
can rewrite the Schrédinger equation in spherical coordinates 


es a eee 
Im r oF? 
re 1 O.. a) 1 tig 
2mr- ( sind 00 sin é 00 a sin2 gd O¢2 )+ Ber!) 
V(r) - E| Wer, 0, 6) = 0, 
or, in a more compact form, 
1 & fr 92 
(-an OFT t Te b+ VO)-B) =O, oe 


a2 
where Lis the square of the angular momentum operator. Problems which 
can be identified by such a Hamiltonian operator are very common in 


physics such as follows: 
1. The H-atom 
2. An ion with one electron 
3. The three-dimensional harmonic oscillator 
4. The three-dimensional potential well, quantum dot 
5. The Yukawa particle (a shielded Coulomb potential) 
6. The free particle. 


In close analogy to classical motion in a central field, we find in quantum 
mechanics that the angular momentum is conserved. The angular 
momentum is defined by 
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L=2xP. (5.6.73) 


Other constants of motion are the Hamiltonian, the square of the angular 
momentum, and the z-component of the angular momentum. The related 
operators A, am and L, create a complete system of commuting operators. 
The solutions of the related eigenvalue problems completely determine the 
properties of the system. As in classical mechanics, we can take advantage 
of the conservation of angular momentum to reduce a three-dimensional 
problem to a one-dimensional one. Similarly, we can use the conservation 
of the angular momentum to separate the coordinates r, 3, and ¢ in the 


Schrédinger equation (5.6.72). 


The dependence of the wave function w on the angles @ and @ is 
a2 z 

determined by the operators L and L,. In spherical coordinates, we can 

express the z component of the angular momentum by L, = -i hdg. The 


eigenvalues of L,, are found by solving the equation 


hn OW) 
7 ag HL), (5.6.74) 


where 0 < ¢ < 27. The solutions of Eq. (5.6.74) are 


Wp) = Aen Lo, (5.6.75) 
Since the solution (5.6.75) must be uniquely defined, it has to satisfy the 
condition 

Wb) = Wb +27). (5.6.76) 
The eigenvalues L,/h=m where m=0, +1, +2, ... satisfy condition 


(5.6.76). The eigenvalues of the operator L, are thus discrete and 
represented by 


L, = hm, where m = 0, +1, +2, .... (5.6.77) 


; ! . : ; : 2 
Since we require normalized eigenfunctions (i.e., |) ie WF, Wn dé = 1), the 


normalized solutions are 


Wn) = = eimd (5.6.78) 


A similar treatment yields the eigenvalues and eigenfunctions of the square 


ry) 
of the angular momentum L from the differential equation 


PwaPy. (5.6.79) 
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a2 
In spherical coordinates, the operator Lis represented by 


fe en cle Oe ee ghd ne Oe 
LE =-h (saa x9 Sind 55 + SIT Oe ) (5.6.80) 
Inserting expression (5.6.80) into Eq. (5.6.79), we get 
1 @ 1 & LP 
(sar Ho sino Hts rt VO o=0. (5.6.81) 


Equation (5.6.81) is the defining equation of the spherical harmonics Y;», 
if the eigenvalues satisfy P= 1 (1+ 1) with 7 =0, 1, 2, ....: 


(say sing 4 + Ss ; the +11 + 1)) Yim(0, ¢)=0. (5.6.82) 
The eigenvalues of in are determined by the quantum numbers 
1=0, 1,2, .... Their related eigenfunctions are the spherical harmonics 
Yim of order 1. Comparing the structure of the eigenfunctions of the 
harmonic oscillator to that of the eigenfunctions of the angular momentum 
i we observe that in the case of LR with eigenvalues LV? =f 1(1+1), 
there are 2/+1 eigenfunctions Y/,,. The eigen- functions Y;,,, however, 
are different in the second quantum number m, which is known as the 
magnetic quantum number. For a fixed value of L”, m counts the different 
projections on the z-axis. If we determine /, we find different values for m 


m=0, +1, +2, ..., +1 (5.6.83) 


and limited to the range —/ <m <1. For the proof of the above relations, 
we refer the reader to the book by Cohen-Tannoudji et al. [5.6]. 


The complete representation of the spherical harmonics for positive m is 


Yim(s 0) = = ime | ODES sin” 9 Pi(cosd). (5.6.84) 


P/'(x) denotes the mth associated Legendre function of order /. In case of 


negative quantum numbers m, we use the relation 


Y)-m(0, 6) = (-1)" Yin, $). (5.6.85) 


If we use the representation of the spherical harmonics given by relation 
(5.6.84), it is easy to show that the Y;,, are also eigenfunctions of the 
operator L,. By a simple calculation, we find 


ap Yin(, #) = fm Yin (0, 0). (5.6.86) 
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We now can state that the spherical harmonics are eigenfunctions of both 
the z-component of the angular momentum operator and the square of the 
angular momentum operator. The corresponding eigenvalues are 


=? 1(1+1) and = L, =hm. (5.6.87) 


The spherical harmonics are accessed in Mathematica by the function 
SphericalHarmonicY[] available in the package CentralField” in Section 
5.8.4. The Legendre polynomials are available using LegendreP[]. 


So far, we have determined the eigenfunctions depending on @ and @¢. 
Separating the angular terms from the radial part of the wave function, we 
get the representation 


Wr, 3, 6) = hr) Yim(, ¢). (5.6.88) 


Relation (5.6.88) used with Eq. (5.6.72) allows the derivation of a 
determining equation for the radial part h(r) of the wave function W. The 
wave function separates because the coordinate system of our problem is 
separable. The radial function h(r) is dependent on the energy E, the 
quantum number /, and the potential energy V(r). Consequently, the radial 
part of the wave function is independent of m: In a spherical potential, 
there are no distinguishing directions breaking the symmetry. 


Inserting relation (5.6.88) into the Schrddinger equation (5.6.72) and using 
our above results for the angular momentum, we get, after substituting 
u(r) = rh(r), the eigenvalue problem for the radial part of the wave function 


n21(1+1) 
2mr2 


( ie ee + V(r) + 


- ) u(r) = Eu(r). (5.6.89) 
u(r) = rh(r) is substituted since for r > 0, the function h(r) has to be finite 
(ie., u(r) > 0 for r> 0). Note that in Eq. (5.6.89), all parameters are 
known except for potential V(r). For the following discussion, we assume 
that the potential V(r) represents a Coulomb interaction of the two 
particles, 
2 
Vinese= (5.6.90) 


r 


This type of potential applies to the hydrogen and hydrogenlike atoms 
where Z = 1 as well as to ionized atoms like He*, Li, and so forth. 
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The stationary states of an electron in a Coulomb potential result from the 
eigenvalue equation 


a 2mE 2mZ e 1(d+1 
(4+ us 4 ame _ Hh) un =0. (5.6.91) 


To carry out our calculation, it is convenient to introduce scaled variables 
E 
p= = and ¢€= Ee’ (5.6.92) 


where a=? [(me?) ~5.29x 10°!'m is Bohr's radius and 
Ey =e? /(2a) =m e*/f? = 13.5eV, the ionization energy of the hydrogen 
atom. The Schrédinger equation (5.6.91) is thus represented by 


( 2Z — L(+) 


Gop ter 22 - EY wip) =0, (5.6.93) 


which allows a representation as 


22 1 (1+1) 
radialEVProblem = 06,,,u[p] + (e +—- | u 
fe) 


p? 


(+1) O77, 
[-— +e+ =<) u(p) + u"(p) = 0 
p p 


We restrict our calculations to the case of bound states characterized by 
negative energy values. To find appropriate representations of a solution 
ansatz for u(r), we examine the limits r > 0 and r— oo. The function u(r) 
is either given by a polynomial in p u)(p) = (1 +a; p + a2 p* +...) or by 
an exponential relation u; = A e~”? +Be”?, where y = —€. The results of 
these expressions are conditions for the parameters a@ and B which satisfy 
a=1+1,B=0. Using these results both expressions are reducible to 


uj(p) = p'*! e-Y? f(p) (5.6.94) 


or, in a manageable form, 


trl =u -> Function[p, p'*1e*° £[p]] 


u > Function[p, p’*! e7”? f(p)] 
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Substituting expressions (5.6.94) into Eq. (5.6.93) and using x = 2 y p, we 
get the standard form of Kummer's differential equation: 


xf"+QU+N-9f'-(I+1- 2) =0, oe) 


where primes denote differentiation with respect to x. The Mathematica 
version of this transformation using original variables is gained by 


gl = radialEVProblem/. tr1// Simplify 


e77? 
(py -2(l+ lyt+2Z+ep) f(p) +20 -ypt+D fp) +p f'"(p)) = 0 


The solution can be directly derived from 


solution = DSolve[gl, f£, p] // Flatten 


-Vel-iZ-Ve 
ve 


{f > Function|{p}, eV? cy uf- 2142, 2ive p|+ 


ee 2 OVE) 


which simplifies if we assume that the energies € are negative: 


£[p] /. solution /. € -> -e // PowerExpand // Simplify 


ae Z oo 
drole ull+ —— +1,214+2,-2Ve pltaLt!, (-2Ve p) 
Ve 


Ve 


The solutions of Eq. (5.6.95) are, in general, confluent hypergeometric 
functions (, F)) 


file) = Fi (1+1- 4, 2142; 279) (5.6.96) 


reducing to lLaguerre's and Kummer's function. To satisfy the 
normalization condition, series (5.6.96) must terminate at a finite order. 
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This restriction excludes Kummer's function (C,; =0) and induces the 


quantization of the energy values by 
aie 7 =-n,, with n,=0,1,2, .... (5.6.97) 


The solution of Eq. (5.6.97) with respect to y delivers 


Z 
Y= RAL? (5.6.98) 


or, by replacing y* = —e, yields energy values e = —Z” /(n, +1+ 1)” to be 


Via Via 
z Ey =— =a Eo. (5.6.99) 


~ (n,t1+1) 
The quantum number 7 is the principal quantum number determined by the 
radial quantum number n, (n,=0, 1,2, ...) and the angular quantum 
number / (J=0, 1, 2,...). The wave function of the electron in the 
Coulomb potential is given by 


Vntm(P> 0, g) = 


5.6.100 
Naver’ Fy (1+ 1-1, 2142;  p) ¥in(0, 0), ) 


where WN, is the normalization constant 


yea (n+)! Cy fae 
Nnl = Gel af Da~—-l-Dt (aa (5.6.101) 


The radial part of the wave function h(p) consists of 
In (p) = Nny pl eZ" Fy (L+ 1—n, 214 2; aa p)- (5.6.102) 


Since the first argument in the hypergeometric function is a negative 
integer, the function ;F in the radial part reduces to a polynomial known 
as a Laguerre polynomial. In Mathematica, the Laguerre polynomials are 
denoted by LaguerreL[]. One useful parameter of the radial wave 
function is n,=n-—/-—1. This parameter counts the nodes of the 
eigenfunction along the horizontal axis. This behavior is shown in Figure 
5.6.18 for n = 3 and/=0, 1, 2. Figure 5.6.18 is created by 


Plot[{Radial[r, 3, 0, 1], Radial[r, 3, 1, 1], 
Radial[r, 3, 2, 1]}, {r, 0, 25}, 
AxesLabel > {"r", "h"}, Prolog > Thickness[0.001]]; 
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0.15 | 
0.1 | 


0.05 | 


1 —————— r 
ee 20 5 
-0.05 | 


Figure 5.6.18. Radial part h of the wave function for n = 3 and/=0, 1, 2. 


The function Radial[] used in the Plot[] function is part of the package 
CentralField’. This package also contains Angle[] for the angular part of 
the wave function. The definition of Angle[] is, in some ways, redundant 
since Mathematica accounts for the angular part of the wave function 
under the name SphericalHarmonicY[]. However, we separately define 
the angular part of the wave function to show how relations (5.6.84) and 
(5.6.85) are expressed in terms of Mathematica. 


The above wave function is applied to representations of orbitals of an 
atom or a molecule. Chemists, for example, work with molecular orbital 
theory to describe the binding of atoms. This theory makes extensive use 
of the angular wave functions Y;,,. In order to describe the binding of a 
molecule, it is necessary to use a linear combination of the angular parts of 
the wave function. We create such a superposition of the Y7,,'s by the 
function Orbital[], which is part of the package CentralField*. Orbitall[] 
creates sums and differences of the spherical harmonics in the form 


Ww, 6) = (1 Yim + Yim |. (5.6.103) 


Relation (5.6.103) represents the probability of finding an electron within 
a certain domain of the angular part of the space. In Figures 5.6.19-22, we 
have plotted some particular examples for orbitals. 
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Figure 5.6.19. | Angular part of the wave function for / = 2 and m=0. 
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Figure 5.6.20. 


Orbital for the quantum numbers /=2 and m=+1 formed from the difference | Y3,; — Y2_1 (7. 


Figure 5.6.21. 


A plot of the sum of the wave functions with quantum numbers 
/=2 andm = +2. 
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0.5 


0.25 


Figure 5.6.22. Representation of the orbital | Y |? for quantum numbers /=3 and m =0. 


Figures 5.6.19-22 show an inner view of the orbitals for a certain range of 
g. Similar pictures for other quantum numbers are created by the 
superposition of the angular wave functions Y,,, with the help of Angle[]. 
The figures of the orbitals are created by the function sequence 
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AnglePlot[Orbital[l,m,0,-¢,"'plus'],0,¢]. An example of the appli- cation 
of this function is given below. 


AnglePlot[Orbital[o, ¢, 4, 2, "minus"], 0, ¢]; 


0.1—-0.1 


5.7 Second Virial Coefficient and Its Quantum 
Corrections 


Nearly 100 years ago, Kannerligh Onnes discribed the thermodynamic 
behavior of a gas in form of an equation which should become as virial 
equation of state one of the most successful theories for the link between 
the microscopic physics of molecular interactions and macroscopic 
thermodynamic properties: 

i =1l+ 


BT) , C1) , DW) 
R 


Vv y2 y3 


5 eee (5.7.104) 
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where B(T), C(T), and D(T) are the second, third, and fourth viral 
coefficients of increasing complexity, R is the gas constant, V is the 
volume, and T is the absolute temprature in the virial equation. 


Immediately after the introduction of the virial equation, Ornstein 
calculated the second virial coefficient (SVC) using Gibb's statistical 
calculation techniques 


2 -U(/r 
BT) = -20Ny (< -1)P dr (5.7.105) 
0 


where N4 is Avogadro's constant, U(r) is the intermolecular potential, and 
kg is the Boltzmann constant. The exciting history of the virial equation 
and its relation to the phenomenological van der Waals equation as well as 
the history of the calculation of B(T) for various molecular potentials is 
covered in an excellent article by Rowlinson [5.7]. He discusses the van 
der Waals equation and its implications to the development of the real gas 
and the liquid. In spite of the strong influence of the van der Waals 
equation on the study of molecular interactions, it could not describe 
accurately the behavior of any substance. Rowlinson points out how an 
empirical proposal of Onnes was combined with the theoretical 
development of Gibbs and Ornstein to produce the viral equation of state, 
one of the most useful theories of any state of matter. 


Before the theory was worked out completely and before the quantum 
theory of the intermolecular potential was developed, the second virial 
coefficient (SVC) was investigated by interaction potentials of the kind 


4-4) (5.7.106) 


U(r) = le 7 pe 
mostly associated with Lennard-Jones [5.8]. After the derivation of the 
dispersion forces proportional to 7° by London [5.9], the (12—-6)- 
potential has become very popular. Theory and numerical results of this 
and related potential are discussed in detail in the classical monographs by 
Hirschfelder et al. [5.10] on the molecular theory of gases and liquids and 
by Mason and Spurling [5.11] on the viral equation of state. As will be 
pointed out subsequently, the SVC is an integral over a function of U(r). 
In teaching statistical thermodynamics, however, one wants to give a final 
result not as an integral but as an explicit function of the temperature and 
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molecular parameters. Especially for the (mm — n)-Lennard-Jones potential 
(abbreviated by (m,n)-LJ) analytical results in terms of series expansions 
with the I function have been given in [5.12]. It was pointed out, however, 
by several authors, also in recent textbooks that for the potential, 
especially the 12 —6, no closed solution exists. That this statement is not 
correct will be shown subsequently in the sketch on analytical approaches 
to the SVC. What is lacking, however, is a consistent derivation of the 
SVC, its quantum corrections, and its temperature derivatives from one 
integral. The present section aims at such a unified derivation. Also, other 
results in the literature will be reduced to these results. 


5.7.1 The SVC and Its Relation to Thermodynamic Properties 


The necessary formulas for the SVC and its quantum corrections are 
collected to show the importance for thermodynamic functions. The virial 
equation of state was given in Eq. (5.7.104). A knowledge of the virial 
coefficients and their temperature dependence describes the pWT behavior 
of the gas completely, if one assumes the convergence of the series. For 
the classical part B, of the B(T), one derives 


BAT) = 2nNg [(eF¥ -1) Pdr 


2mNaB po _gyy / dU (5.7.107) 
= BME feet) ear 


after partial integration. N4 is Avogadro's number, 6 = (kg (vee kg is the 
Boltzmann constant, and U(r) is the interatomic or intermolecular 
potential. The index c on B denotes the purely classical part of our 
considerations. For low temperatures and light atoms and molecules like 
He, Ne, and Ho, one has to take quantum mechanics into account. It was 
shown with the (12 — 6) potential for He that at very low temperatures, the 
full quantum mechanical calculation has to be performed, but for 
temperatures above 5K, the semiclassical expansion without the symmetry 
term is sufficient: 


2 
B=B,+ & 


m 


t) ByPes, (5.7.108) 
with 


3 CO 
By, = AME f ebUy Par (5.7.109) 


1 
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and 
B= - tN 
Q ~~ 6 
(5.7.110) 


oe ny 12 3 2¢T 74 
‘p en OF Oy 4 BUY BO 
The SVC is important for the correct calculation of thermodynamic 
functions at high temperatures, as it includes not only the bound states 
usually only taken into account in the calculation of partition functions but 
also meta-stable and continuum states. This was shown explicitly for a 
Rydberg diatomic potential by Sinanoglu and Pitzer [5.13]; a more recent 
discussion on the splitting of the phase space of the SVC was given by 
Friend [5.14]. 


The thermodynamic functions related to the SVC, B, and its temperature 
derivatives B, = T" (d” B/dT") are given by the internal energy 


U-U_ (By 
oo = -( + 2, (7.11) 
the enthalpy 
~ -~0 
H-H_ _ B-B, 
RE es (5.7.112) 
the entropy 
~ ~0 
= 2 
SS = -finp + 4h 4+ 4B, (5.7.113) 
V 2V 
and the specific heat 
~ ~0 
Cp-Cp By _ (B-Biy 
7 a (2-2 +..} (5.7.114) 


4 Vv 
por Ch = -[B-TB]+ 
2 5.7.115 

4+[oB?-27BB'- 24 (B-TB)B"+...]+.... ( ) 

V Cp 
Thermodynamic functions give the extent of the values from the value of a 
perfect gas in its normal state denoted by a superscript (°); the tilde (~) 
represents molar quantities. From these formulas follows that for a 
complete analytical theory of the SVC and for thermodynamic functions 


with two-body interactions, one has to calculate 
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B(T) = BAT) + Bg(T) + Bg,(T) +... (5.7.116) 


5.7.2 Calculation of the Classical SVC B,(T) for the 
(2n —n)-Potential 


A useful method of evaluating the thermodynamic properties of gases at 
high temperatures is to treat the entire gas as a monoatomic assembly with 


gas imperfections given by 


PV BIT C(T D(T 
PY 1+ ADO, OE ., (57.117) 


where B(T), C(T), and D(T) denote the second, third, and fourth virial 


coefficients, respectively. Our interest here is the second virial coefficient 


B(T) (SVC) and its quantum mechanical corrections up to second order. 
All of the thermodynamic properties of the gas are then obtained directly 
from the equation of state as represented by Eq. (5.7.117). 


In the following calculations, we will examine the two-parameter 


Lennard-Jones potential (LJ): 


where € is the well depth and o is the internuclear distance. Our interest is 
mainly concerned with the case when m =n and n is replaced by an even 
number of m. As a two-parameter potential with €, o, the (m — n)-potential, 
is simple but not very flexible. An additional parameter is introduced in 


the spherical Kihara hard-core potential [5.15]: 


Kihara = 
n-m 
2 (ao ee eee) eee | 
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The Kihara potential is oo for r<2a and is connected with the LJ 
potential if we replace the radial coordinate r, the potential depth e, and 
intermolecular distance by 


(n — m) (tL yen 
transforms = {r > 2a +r, €- —————_, o > 2a + 0}; 
n 


Applying these transformations to the Kihara potential, we find 


tK = Simplify[ Kihara /. transforms] 


m m 


2B (PSY (STS) 


n-m 


Comparing the LJ potential with the transformed Kihara potential, we 
observe their equivalence: 


PowerExpand[tK == LJ] 


True 


meaning that both potentials are identical. Thus, we can unify the 
calculations for one type of potential. We therefore restrict our 
considerations to the LJ potential. We note that the following results are 
also valid in case of the Kihara potential. Our main interest is concerned 
with a subclass of LJ potentials where the exponents (n, m) are given by an 
even integer and the integer itself. For such a combination, the LJ potential 
reduces to a(2n —n)-potential, which is given by 


U@) =LJ /. {n > 2n, m > n} 


4e((5)"-(2)) 


r r 
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The first derivative, the intermolecular force, needed to evaluate (5.7.107) 
follows from the potential by differentiating U(r) with respect to r: 


0U(r) 


| 


Force = Simplify|- 


4ne(Z)'Q(£)"-1) 


r 


Inserting the potential U(r) and the force into Eq. (5.7.107), we find 


1 Tore) 
Bea 3 (22N4 p | e FY Forcer?® dr 
0 


Integrate::gener : Unable to check convergence. More... 


r 


= 7B ‘i 4 tPUEP EN n 2 e(Z) (2(Z)' 1) dr) Ny 


At first glance, the result is disappointing because Mathematica does not 
evaluate the integral. However, it returns the integral containing the 
explicit expressions for the potential U and its first derivative. A second 
examination of the integral reveals that we found a Laplace transform of 
the first derivative of U, the negative force. To recognize that the above 
integral represents a Laplace transform, let us introduce the following 


substitutions: 


Oot Vn 
substitution = {r + ot", DifferentialD(r) > ave DifferentialD(O)}; 
t 


Applying this substitution to the integrand B,, we are able to reduce 
(5.7.107) to a Laplace integral. The integrand of this integral is calculated 
by the transformation 
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integrand = PowerExpand| 
1 
e ((-22 Ng B)) ef“ Forcer® DifferentialD(r) /. substitution /. 


DifferentialD(.) > 1] 


: et OO Be 5 3" (2 ¢— 1) Bea Ng 


Inserting the new integrand into the classical part of the SVC, we find 


Be= { integrand dt 
0 


Integrate::gener : Unable to check convergence. More... 


If[Re(Be) >0 /\Re(+) < > 52 n(BOX 
(r(1- = )(m(t - a 51Be)-2BerFi(1 7 = >: Be))+ 
VBE (21(=S—) 7 (-S—, +: Be) 
r=2) (252: ts) 


16 3 8 
Integrate] = eter Beg lt Bea Na — Py etd Beg 3" Beg Nag, 


{t, 0, co}, Assumptions > Re( : ) = x Vv Re(Be6 < ol| 


n 


The result shows that under the conditions Re(+) < and Re(6 €) > 0, the 
integral exists and the SVC is represented by hypergeometric functions 
| F; depending on the potential parameter n, the inverse temperature £, 
and the potential depth e. If the conditions on 7 and fe are not satisfied, 
we observe that the integral cannot be evaluated. A more usable 
representation of the result for our further calculations is generated if we 
supress the conditions under which the integral is solvable. We select 
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Be=Be/.a_.If[b,c,d ]->ac 


1) ns 3 
3? 7 m(B Ee)?" ome 


(M(t = 5) (uni Fs 538) -2BerF(1- 5-5 55 Be)) + 


VB (ar(>S—) (“5 : 5:8¢- 


r me ) (a, 5:Be))) Na 


The result is that the classical SVC for (2n—n) potentials can be 
represented by hypergeometric functions. A graphical representation of the 
SVC in a scaled representation follows: 


Plot[Evaluate[Bc /. {€ 91, 0371, n36, Na > 1}], 
{B, 0., 1/2}, AxesLabel > {"Be", "Bo/(Nao*)"}, 
PlotStyle > RGBColor[0, 0, 0.996109]]; 


B./(Nao®) 


The plot shows that the classical SVC possesses a single maximum in the 
variable fe. In addition to the graphical representation of the SVC, the 
analytical result allows us to apply the result to thermodynamic quantities 
as given in Eqs. (5.7.111-5.7.115). This opens the way to access 
thermodynamic quantities like the internal erenrgy. The internal energy for 
example is defined in terms of the SVC by 
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which becomes 
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(5.7.118) 
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A(Be/.B> >) 
or 


InternalEnergy = — i. 


3(n- 1) 3(n-1) 3 -—3 
aise Ul eremeae role 


3 SOs 2 
3 4(1 3) 1Fi(2 In? 2°? Tin )€ 
r1 ) 
2n 373 kp 
32. 3 
21Fi(l- 37333 THE 
T? kg 
3 See 
2d on) 1Fi(2 2n? 2? Tin) € + 
T2 kp 


(n- 3) eP(3) 1Fi(43 +1; 3; cE) 
nT? kp 


2(n~ eT ASH) Fi (AY +15 3; 7) 


2n 
nT? kg 


ps reco[ FE eM nD. 


In the above line, we used relation (5.7.111) to represent the internal 
energy. Since the SVC in our calculations does not depend explicitly on 
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the temperature T, we replaced the reduced temperature 6 by 1/(kg T). 
After this replacement in B,, we differentiate the resulting expression with 
respect to JT. A multiplication of the result by T and a normalization with 
the volume V delivers the final result. All of these steps are contained in 
the above input line. The result is a general analytic expression for the 
internal energy allowing the choice of the temperature 7, the potential 
depth e, the radius o, and the exponent of the potential n. To describe a 
specific gas, we have to insert numeric values for the parameters into the 


result. For example, we find for 
e=1,n=6,0=1., N4 =1, kg = 1, T = 200, and V = | an internal energy 
of 


<<Miscellaneous PhysicalConstants~ 


InternalEnergy /. 
{e > 10-”° Joule, n > 6, o > 10-8, N4 > AvogadroConstant, 
kg > BoltzmannConstant, T > 200 Kelvin, V > 1} 


132.423 
Mole 


By inserting the model parameters €, n, 0, and the other thermodynamic 
parameters N,, kg, and V, we have access to the numerical values of the 
internal energy as well. If we vary the temperature 7, these values show 
the dependence of the internal energy on T. If we are interested in the 


temperature dependence of the internal energy, we can generate a plot by 
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Plot [Evaluate[InternalEnergy Mole /. {e »10°7° Joule, 
n->6, 0+107°, Na > AvogadroConstant, 
kg ~ BoltzmannConstant, T-> tKelvin, V7>1}], 
{t, 200, 250}, AxesLabel > {"T", "u"}, 
PlotStyle > RGBColor[0.996109, 0, 0]]; 


=100' 
at10: 
420° 
~130 | 


If we change, in addition to T, the exponent n in the potential, we get the 


following figure. 
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Plot [Evaluate[Table[ 
InternalEnergy Mole /. {e > 10°*° Joule, n>v, ao>10°8, 
Na, > AvogadroConstant, kg > BoltzmannConstant, 
T+ tKelvin, V>1}, {v, 4, 9, 1}]], 
{t, 200, 250}, AxesLabel > {"T", "u"}, 
PlotStyle > RGBColor[0.996109, 0, 0], 
Prolog > {Text["n=4", {224.474, -199.729}], 
Text["n=8", {224.474, -40}], 
Text["n=5", {224.474, -130}]}]; 


_50 | n=8- 
-100 | 
—150 | 
—200 | 
—250 | 


The reader can determine other thermodynamic quantities of his interest, 
such as enthalpy, entropy, heat capacity at constant pressure, or the 


Joul—Thomson coefficient. 


5.7.3 Quantum Mechanical Corrections B,,(T) and B,,(T) of 
the SVC 


Up to the present considerations, we only know the classical behavior of 
the gas for high temperatures. The following discussion includes two 
quantum mechanical corrections allowing us to discuss all thermodynamic 


quantities in cases where quantum corrections are necessary. 


The quantum mechanical corrections Bg; and Bg2 in Eq. (5.7.109) and 
(5.7.110) are realized by the same substitution as demonstrated in the 
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classical calculation. The integrand of the first quantum correction is 
transformed by 


integrandQcl = 


2 
2nNa4 Be FY (SO) pifferentialDe) 


Simplify| oS 


/. substitution /. 
DifferentialD(«) > 1] 


ret cat batch Peon 


The related integral follows by inserting the integrand into the integral: 


Bql = I integrandQcl dt 
0 


If[Re(Be) > 0, 


-55 (2h ?n Be (Bera) o(r(i- 


sq) Fi(l- 523 55 Be) Bo" + 
1 1 1 1 3 
1(2- 5) (1Fi(2- 5—s 5: Be)-4BeiFi(2- =: 5 Be) 
VBe +2Be(I (5-35) 
3 
2 


{t, 0, co}, Assumptions > Re(Ge) < 0]] 
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Bql=Bql/.a_.If[b ,c,d ]->ac 


_— aio Ve 


(ri sal iFi(l- 5 = 5186) (Be +1(2- >) 
iene ba-spniioe dd 


3 1 3 1 3 
2Be(I(S - 5-)(BeFi(S ay? 5:B)-iFi(5- Tn’ 


:Be)) +1(S—- so) i(S - sos $5 Be) ms) 


Again, we find an analytic representation of the first quantum mechanical 
correction of the SVC by means of hypergeometric functions ,; F,. The 
integrand for the second quantum correction B,, follows by 


integrandQc2 = Simplify| 


ou) ) 
+ 


1 
22N, e AUO)___ 5 ( 
a 36 ar 


PowerExpand|— one 


wp(%e) (Sey (eumy 
e+ a s ] 2 
ror 


or r 


DifferentialD(‘) | /. substitution /. DifferentialD(@) > 1]] 


1 
— Say gay (OMe nt BEE (418? + 27-10 Ben +9 rtn + 
4((5 B2 2 — 36) n? + 12(5 Be-3)n-9) 2*7 — 160 Be 
(1Be+3)P% +160n Ben Be 2)A* — 6400" Bre Are 

3200? Be hm —9(n+ IP tt - To? + 7201-180) Na) 


and the explicit integration provides 
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Bq2 = i integrandQc2 dt 
0 


Integrate::gener : Unable to check convergence. More... 


1 
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Bq2 = Bq2 /. a_. If[b_,c_,d__] > ac 
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Using €/kg and + nN, ina scaling transformation for the temperature 
in the SVC, we get B*(T) tbulated in books like Hirschfelder et al [5.10]. 
These authors introduce a scaled representation of the SVC by 
Bt = B./ (4 mt Na o) with a reduced temperature of T* = kg T/e. 
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where A=fh/(o(m rages is the reduced de Broglie wavelength of relative 
motion. B* is an even polynomial of fourth order in A. It contains the 
classical, first, and second quantum corrections as zeroth-, second-, and 
fourth- order coefficients, respectively. We extract the reduced 


representation of the second quantum correction by 
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bq2 = Coefficient[BStar, A, 4] 


General::spelll : Possible spelling error: new 


symbol name "bq2" is similar to existing symbol "Bq2". More... 
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The first quantum mechanical correction is extracted by 


bq1 = Coefficient[BStar, A, 2] 


General::spelll : Possible spelling error: new 


symbol name "bq1" is similar to existing symbol "Bq1". More... 
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And the classical SVC in reduced variables is 
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be = Coefficient[BStar, A, 0] 
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The derived results are analytic expressions in terms of hypergeometric 
functions ; F; allowing a graphical and analytical treatment of the SVC, 


including quantum corrections. The representation of the second virial 


coefficient up to second-order quantum corrections is thus given by 


bstar = be + A* bql +A*bq2; 


To demonstrate the influence of the quantum mechanical corrections, let us 
graphically examine the classical SVC, the two quantum corrections, and 
the total representation of the SVC. We plot the reduced quantities 
depending on the variable T* = T. Figure 5.7.23 shows the influence of the 


first and second quantum correction on the SVC: 
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Plot [Evaluate[ 
{bc, bql, bq2, bstar} /. {A>1, 071, n-> 6}], 

{T, 0.2, 10}, AxesLabel > {"T*", "B*"}, 

PlotStyle > {RGBColor[0, 0, 1], RGBColor[0, 1, 0], 
RGBColor[1, 0, 0], RGBColor[0, 0, 0]}, PlotRange > 
{-2, 2}, Prolog > {Text["Bi", {1.6607, -0.650973}], 
Text["Bg,", {0.660171, -0.452358}], 

Text["Bz,", {0.861535, 0.704103}], 
Text["B*", {2.08858, -0.916639}]}]; 


The figure contains the classical SVC (blue), the first quantum mechanical correction (red), 
the second quantum correction of SVC (green), and the sum of the three parts (black). We 
note that the second quantum corrections contains terms linear in 0. Therefore, in addition 
to A and n we have to specify the value of o. 


Figure 5.7.23. 


For practical applications, it is sometimes necessary to have the numerical 
values of the SVC and its first and second temperature derivatives 
available. The numerical values of these quantities are tabulated in the 
book by Hirschfelder et al. for the (12-6)-LJ potential. The first and 
second derivative of B® with respect to T* then follows by 
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The first few lines of table I-B contained in the appendix of Hirschfelder et 
al. then follows by 
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tl = Table[N[{7, be, b1, b2, b1 — be} /.n > 6, 9], {T, .3, 1, .05}]; 
PrependTo{tl, {"T", "Bz", "b1", "b2", "b1-B?"}}]; 
TableForm[Map[Map[PaddedForm|#, {5, 2}] &, #] &, t1]] 
T Be bl b2 bI-B* 
0.30 -27.88 76.61 -356.88 104.49 
0.35 -18.75 45.25 -189.47 64.00 
0.40 ~13.80 30.27 -116.37 44.07 
0.45 ~10.75 21.99 -78.88 32.74 
0.50 -8.72 16.92 -57.34 25.64 
0.55 2997 13.58 -43.88 20.86 
0.60 -6.20 11.25 -34.92 17.45 
0.65 -5.37 9.55 -28.64 14.91 
0.70 -4.71 8.26 ~24.06 12.97 
0.75 -4.18 7.25 -20.61 11.43 
0.80 -3.73 6.45 -17.94 10.19 
0.85 -3.36 5.80 -15.83 9.17 
0.90 -3.05 5.26 -14.12 8.31 
0.95 7 4.81 21971 7.59 
1.00 -2.54 4.43 -11.54 6.97 


Comparing the calculated figures with Hirschfelder's result demonstrates 
excellent agreement. The analytical results derived in the calculations 
above are not restricted to the (12-6)-LJ potential but allow any choice of 
the exponent n> 3. For example, we can determine the SVC for a 
(16-8)-potential by 
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t2 = Table[N[{T, be, b1, b2, b1 — be} /. n > 8, 9], {T, 1, 2, .05}]; 

PrependTo[t2, 

{("T", "\WNAGB\_c\%«\)\)"", "b1"", "b2", "b1-\N\A(B\_c\%#\)\)"}J5 

TableForm[((PaddedForm[#1, {5, 4}] &) /@ #1 &) /@ t2] 

i Bs bl b2 b1-B* 
1.0000 —1.0453 2.6042 —6.9604 3.6495 
1.0500 —0.9233 2.4020 —6.3427 3.3253 
1.1000 —0.8157 2.2270 —5.8170 3.0427 
1.1500 —0.7201 2.0742 —5.3651 2.7943 
1.2000 —0.6348 1.9397 —4.9732 2.5745 
1.2500 —0.5580 1.8205 —4.6305 2.3786 
1.3000 —0.4887 1.7142 —4.3288 2.2029 
1.3500 —0.4259 1.6188 —4.0612 2.0447 
1.4000 —0.3686 1.5328 —3.8226 1.9014 
1.4500 —0.3162 1.4549 —3.6087 1.7710 
1.5000 —0.2681 1.3839 —3.4160 1.6520 
1.5500 —0.2238 1.3191 —3.2415 1.5429 
1.6000 —0.1828 1.2597 —3.0828 1.4425 
1.6500 —0.1449 1.2050 —2.9380 1.3499 
1.7000 —0.1097 1.1545 —2.8055 1.2642 
1.7500 —0.0769 1.1077 —2.6836 1.1847 
1.8000 —0.0463 1.0643 —2.5713 1.1107 
1.8500 —0.0177 1.0239 —2.4674 1.0416 
1.9000 0.0091 0.9862 —2.3711 0.9771 
1.9500 0.0342 0.9509 —2.2817 0.9167 
2.0000 0.0579 0.9179 —2.1983 0.8600 


We also can represent the data graphically: 
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Plot[Evaluate[{bc, b1, b2, b1 — bc} /.n > 8], 
{T, .3, 2}, AxesLabel > {"'T*", "B*"'}, PlotStyle > 
{RGBColor[0.996109, 0, 0], RGBColor[0.500008, 0.996109, 0], 
RGBColor[0.500008, 0, 0.250004], RGBColor[0, 0, 0.996109}}, 
Prolog > {Text["Bz", {0.224533, —12.4014}], Text["'B;", 
{0.224533, 34.4014}], Text["B3", {0.425166, —30.6213}], 
Text["Bj—-Bz", (0.564147, 20.2026}]}]; 


Knowing the analytical expressions of the SVC, we are able to calculate 
either numerical values of of the classical SVC and its derivatives or 
represent the data graphically. We are not only restricted to classical 
values but can incorporate the quantum mechanical corrections. The first 
and second temperature derivatives for By are 


bqqi = T 0;bstar; 


bqq2 = T? 07,7bstar; 


A table containing the SVC with quantum corrections and the two 
derivatives is generated by 
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NIT, bstar, bqq1, bqq2, bqq1 — bstar} /. {n > 8, 7 > 1, A > 1}, 9], 
(eis 1, 2. -05}]; PrependTo[t3, 1d Bos Bee "BS", w i1-B*"}15 
TableForm[Map[Map[PaddedForn][#, {5, 4}] &, #] &, t3]] 


t3 = Table[ 

T B* 
1.0000 —1.3947 
1.0500 -1.2481 
1.1000 -1.1181 
1.1500 —1.0022 
1.2000 —0.8985 
1.2500 —0.8051 
1.3000 —0.7208 
1.3500 —0.6443 
1.4000 —0.5746 
1.4500 —0.5108 
1.5000 —0.4524 
1.5500 —0.3987 
1.6000 —0.3491 
1.6500 —0.3032 
1.7000 —0.2606 
1.7500 —0.2210 
1.8000 —0.1842 
1.8500 —0.1497 
1.9000 -0.1175 
1.9500 —0.0873 
2.0000 —0.0590 


B3 
-7.8531 
—7.3252 
—6.8361 
—6.3879 
—5.9797 
—5.6087 
—5.2718 
—4.9658 
—4.6874 
—4.4338 
—4.2022 
—3.9903 
—3.7959 
-3.6173 
—3.4527 
—3.3007 
-—3.1600 
—3.0296 
—2.9084 
—2.7955 
—2.6902 


Bs-B* 
4.5137 
4.1435 
3.8141 
3.5203 
3.2572 
3.0207 
2.8074 
2.6143 
2.4388 
2.2788 
2.1325 
1.9982 
1.8746 
1.7606 
1.6551 
1.5572 
1.4662 
1.3814 
1.3023 
1.2282 
1.1588 


These values are graphically represented by 
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Plot[Evaluate[{bstar, bqq1, bqq2, bqq1 — bc} /. {n > 8, o > 1, A > 1}], 
{T, .3, 2}, AxesLabel > {"'T*", "B*"'}, PlotStyle > 
{RGBColor[0.996109, 0, 0], RGBColor[0.500008, 0.996109, 0], 
RGBColor[0.500008, 0, 0.250004], RGBColor[0, 0, 0.996109}}, 
Prolog > {Text["B*", {0.304995, 40.1747}], Text["Bj", 
{0.466965, —26.9214}], Text[''B3", (0.578254, 32.1998}], 
Text["Bj-Bz", {0.901671, 12.5162}]}, 
PlotLabel > "o=1, A=1"); 


B’ o=1, A=1 


The first and second derivatives of B* with respect to 7* are of practical 


importance. 


5.7.4 Shape Dependence of the Boyle Temperature 


Stogryn and Hirschfelder [5.16] showed that the SVC can be separated 
into a bound state, a meta-stable state, and a continuum state contribution. 
For the (12-6)-LJ potential, they gave the temperature dependence of these 


contributions in tabular form. 


At low temperatures, the average energies of the colliding molecules are of 
the order of the energy of the well depth. The molecule spends much time 
in the bound region of the molecular potential. Mutual attraction of the 


molecules results in a decrease of pressure, and the SVC is negative. 


5. Quantum Mechanics 681 


At high temperatures, corresponding to high energies compared to the well 
depth, the main contribution comes from the repulsive branch of the 
potential. Repulsion increases the pressure and SVS becomes negative. 


From the above-mentioned investigation of the SVC for the (12-6)-LJ 
potential follows that the SVC for the bound states and the meta-stable 
states remains positive, whereas the contribution by the continuum states 
becomes negative and equals the bound state and metastable state 
contribution at the Boyle temperature leading to B(T)=0. The shape 
dependence of the SVC on the exponent is shown in Figure 5.7.24. 


ns = {4.0, 4.5, 5, 5.5, 6, 6.5, 7, 7.5}; 
Plot[Evaluate[Map[bc /.n>#&, ns]], 
{T, 1, 300}, AxesLabel > {"T*", "B3,"}, 
PlotStyle > RGBColor[0, 0, 0.996109], 
TextStyle > {FontFamily > "Arial", 
FontSize>15, FontWeight > "Bold"}, 
AxesStyle > {Thickness[0.005]}, 
Prolog > {Text["n=4.0", {161.363, 0.171682}], 
Text["n=7.5", {161.363, 0.6}]}]; 


ok 
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Figure 5.7.24. The scaled SVC for different potential orders n. 


The Boyle temperatures are calculated by solving the defining equation 
B(Tz) = 0. The solution is carried out by the function FindRoot[]: 
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BoyleT = (FindRoot[#1 == 0, {T, 10}] &) /@ 
(be /.n > #1 &) /@ Table{i, {i, 3.1, 7.5, .1}]; 


The following table collects the Boyle-temperatures for different values of 


n: 


tabBoyle = {Table[i, {i, 3.1, 7.5, .1}], T /. BoyleT}’; 
tb = Prepend[tabBoyle, {"n", "'T,"'}]; 


A graphical representation of these numerical values is given in the 
following plot: 


ListPlot[tabBoyle, AxesLabel > {"n", "T3"}, 
PlotStyle > RGBColor[0.996109, 0, Oj]; 
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The result is that the Boyle temperaure is a decreasing function which has 
a singularity at n=3. For n values much larger than 3, the Boyle 


temperature approaches zero. 


At often unphysically high temperatures, the molecules collide with such 
high energies that they interpenetrate each other. They behave as if they 
had a smaller volume so that B(T) goes through a maximum. This is shown 
in Figure 5.7.24. To determine the change of this maximum by altering the 


potential order, we determine the coresponding temperature values by 
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Tmax = (FindRoot[#1 == 0, {T, 20}] &) /@ 
(Orbe /. n+ #1&) /@Table[i, {i, 3.2, 7.5, .1}]; 


FindRoot::lstol : 
The line search decreased the step size to within tolerance specified by AccuracyGoal 
and PrecisionGoal but was unable to find a sufficient decrease in 
the merit function. You may need more than MachinePrecision 


digits of working precision to meet these tolerances. More... 


FindRoot::lstol : 
The line search decreased the step size to within tolerance specified by AccuracyGoal 
and PrecisionGoal but was unable to find a sufficient decrease in 
the merit function. You may need more than MachinePrecision 


digits of working precision to meet these tolerances. More... 


These maximum temperatures are collected in the following table. For He, 


this maximum was observed experimentally near 200 K. 


tabTmax = 
Transpose[{Table[i, {i, 3.2, 7.5, .1}], T/. Tmax}]; 
tT = Prepend[tabTmax, {"n", "Tg"}]; 


The graphical representation of these data is given in the following plot: 


ListPlot[tabTmax, AxesLabel > {"n", "Tnax"}, 
PlotStyle > RGBColor[0.996109, 0, OJ], 
PlotRange > {{3, 7.7}, {0, 220}}]; 
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5.7.5 The High-Temperature Partition Function for Diatomic 
Molecules 


The partition function of a diatomic molecule is important for many 
applications from astrophysics to reaction kinetics. In courses on physical 
chemistry, it is treated in the harmonic oscillator approximation — rigid 
rotator approximation, and anharmonicity and rotation -— vibration 
interactions are included in the spirit of the JANAF tables. 


It is known from high-temperature chemistry that for accurate 
thermodynamic functions, bound states from the solution of the 
rotation—vibration Schrédinger equation of the molecule 


J(J+1) in? 


Wy, 
Oh = (Um+ Tur 


— z Ey) Wy = 0 (5.7.119) 


where wW,; are rotation—vibration eigenfunctions, v and J are vibrational 
and rotational quantum numbers, respectively, 44 represents the reduced 
mass, and E,,, the rotation—vibration eigenvalues, must be calculated. The 
meta-stable states behind the rotational barrier must be included. 


Mies and Julienne [5.18] investigated the statistical thermodynamic of the 
diatomic molecule using numerical techniques for the exact scattering 
theory of the SVC. 


For the equilibrium reaction 
X,e22Xx 


as an example, they showed that the concentration equilibrium constant K, 
can be expressed by the SVC 
B(T) = —K. (5.7.120) 


As for real molecules and atoms excited, often degenerate electronic states 
must be included, they defined a generalized SVC by 


(B) = (Lj Bi) gilx2) eB) (5 gj) e Bl), 


where B; is the SVC for a molecular state i, g is the electronic degeneracy 
Fj; is the excitation energy, g; is the electronic degeneracy of the atomic 
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state j and E; is its excitation energy. Phair, Birlsi and Holland [5.17] 
derived the partition function from 


with K, the pressure equilibrium constant, V the volume of the system, 
q(X) the monomer partition function, and q(X2) the dimer parition 
function. 


As q(X) depends only on mass, temperature, volume, and electronic 
degeneracy g, the diatomic partition function for the bound state can be 


written 


q(X2) = —B(T)( 2a tary, re gi(X) e@ Polke? | (5.7.121) 
where Dg is the spectroscopic dissociation energy of the ground electronic 
state of the molecule X2, if the energy zero is taken as the lowest 
vibrational state (one can take as well D, as energy zero). If we insert the 
analytical results for B(T) for the (2n—n)-potential derived above a 
closed-form representation of a realistic partition function including 
rotation—vibration coupling, anharmonicity up the disociation limit, 
meta-stable states behind the rotational barrier, and the continuum or 
scattering states. 


From the diatomic partition function, the molecular thermodynamic 
functions can be calculated by standard methods. Phais et al. [5.17] gave 


explicite formulas for 


H.-H = RT(4+ 4h +...) (5.7.122) 
0 = Bs Bs Bt 2 
Ce R(4 +2542 -() ) (5.7.123) 


Equation (5.7.122) scaled by R reads 


bl) 2b1  »b2 
c= -(—] +—++— +4; 
be 


A graphical representation of this function for differet values of n is given 


next. 
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pll= 
Plot[Evaluate[Map[Cp/.n>#«&, {3.5, 4, 5, 6, 7}]], 
{T, .01, .3}, AxesLabel > {"T*", "C,/R"}, 
PlotStyle > RGBColor[0, 0, 0.996109], 
Prolog > {Text["n=3.5", {0.208115, 6.37933}], 
Text["n=7", {0.120138, 4.74692}]}]; 
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Phair et al. used a five-parameter Hulburt—Hirschfelder potential in their 
numerical calculations for B,,. The following set of data is taken from 


their article representing the scaled C, values [5.17]. 


data = {{0.0174, 4.5}, {0.0384, 4.57}, {0.0522, 4.69}, 
(0.0696, 4.75}, {0.0869, 5.035}, {0.1043, 5.52}, 
(0.1217, 5.99}, (0.1304, 6.14}, (0.139, 6.20}, 
{0.147, 6.19}, {0.156, 6.09}, {0.174, 5.75}, 
(0.191, 5.28}, (0.208, 4.83}, (0.217, 4.62}}- 


A combination of our symbolic calculations and their numerical results 
demonstrates a qualitative agreement. The results are shown in the Figure 
5.7.25: 
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Show[ 
{pl1, ListPlot[data, DisplayFunction -> Identity] }, 
DisplayFunction -> $DisplayFunction] ; 
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Hulburt—Hirschfelder potential in the numerical calculation of Bj, and its temperature 


derivatives. 


5.8 Exercises 


1. Examine the spectrum of the eigenvalues for a potential well with 
different depths. Give a graphical representation of the eigenvalues 
depending on different depths. 


2. Determine the wave functions for different eigenvalues for the 
potential well by using the methods discussed in Section 5.3. 


3. Check the relation | a |* + |b? = 1 for the anharmonic oscillator. 


4. Reexamine the Poschel—Teller problem and study the expectation 
values (x”) given by 


(x") = fu x" wdx 
for different values of n. 


5. Plot the radial part of the wave function of the hydrogen atom for 
different quantum numbers n and 7. Examine the influence of the 
charge Z. 
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6. Create a graphical representation of the f orbital for the europium 
atom. 


5.9 Packages and Programs 


5.9.1 Package QuantumWell 


This package serves to examine a one-dimensional quantum dot. 


BeginPackage["QuantumWell™"]; 


Clear[PsiSym, PsiASym, Spectrum] ; 


PsiSym: :usage = 
"PsiSym[x ,k_,a_] determines the symmetric 
eigenfunction for a potential well of depth - 
vO. The input parameter k fixes the energy and 
2a the width of the well. PsiSym is useful for 
a numerical representation of eigenfunctions."; 


PsiASym: :usage = 
"PsiASym[x ,k_,a_] determines the antisymmetric 
eigenfunction for a potential well of depth - 
vO. The input parameter k fixes the energy and 2 
a the width of the well. PsiASym is useful for 
a numerical representation of eigenfunctions."; 


Spectrum: :usage = 

"Spectrum[VO_,a_] calculates the negative 
eigenvalues in a potential well. VO is the 
potential depth and 2a the width of the 
well. The eigenvalues are returend as a list 
and are available in the variables lsym and 
lasym as replacement rules. The corresponding 
plots of eigenfunctions are stored in the 
variables Plsym and Plasym. The determining 


equation for the eigenvalues is plotted."; 
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(*---define global variables---x) 


Plsym: :usage = "Variables containing the 
symmetric plots of the eigenfunctions."; 
Plasym: :usage = "Variables containing the 
antisymmetric plots of the eigenfunctions."; 
lsym: :usage = "List of symmetric eigenvalues."; 
lasym:: usage = "List of antisymmetric eigenvalues."; 


k : usage = "Eigenvalue."; 
Begin[" Private "]; 


(*---symmetric eigenfunctions---x«) 
PsiSym[x_, k_, a_] :=Block[{}, 
(*---define the three domains of solution---+) 
Which[-Infinity < x&&x < -a, 
1/Sqrt[aExp[-2akTan[ka]] (1+1/ (kTan[ka] a) + 
kTan[ka] / (k*2 a) + (k Tan[ka]) *2/k*2)] 
Exp[k Tan[ka] x], -a<sx&&x<a, 
1/Sqrt[aExp[-2akTan[ka]] (1+1/ (kTan[ka] a) + 
kTan[ka] / (k*2a) + (kTan[ka]) ~2/k*2)] 
Exp[-k Tan[k a] a] Cos[kx]/Cos[ka], 
a<x&&x< Infinity, 1/Sqrt[aExp[-2akTan[ka]] 
(L+1/ (kTan[ka] a) +kTan[ka] / (k*2 a) + 
(k Tan[k a]) ~*2/k*2)] Exp[-k Tan[ka] x]]]; 


(*---antisymmetric eigenfunctions---+*) 
PsiASym[x , k_, a_] :=Block[{}, 
(*---define the three domains of solution---x) 
Which[-Infinity < x&&x < -a, 
-1/Sqrt[aExp[-2 a (-k Cot[ka]) ] 
(L+1/ (-kCot[ka] a) + (-kCot[ka]) / (k*2 a) + 
(-k Cot[ka]) *2/k%*2)] Exp[(-kCot[ka]) x], 
-asx&&x<a, 1/Sqrt[aExp[-2a (-kCot[ka]) ] 
(L+1/ (-kCot[ka] a) + (-kCot[ka]) / (k*2 a) + 
(-k Cot[ka]) *2/k%*2)] 
Exp[-(-k Cot[ka]) a] Sin[kx]/Sin[ka], 
a<x&&x< Infinity, 
1/Sqrt[aExp[-2a (-kCot[ka]) ] 
(L+1/ (-kCot[ka] a) + (-kCot[ka]) / (k*2 a) + 
(-k Cot[ka]) *2/k%*2)] 
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Exp[-(-k Cot[ka]) x]]]; 


(*---determination of the eigenvalues; 
plot of the eigenfunctions---+*) 
Spectrum[V0O_, a_] := 
Block[{hbar=1, m=1, ymax, C2, rhs, lhssym, 
lhsasym, equatsym, equatasym, kmax, nsym, 
nasym, resultsym, resultasym}, (*---define 
constants and the eigenvalue equation---*) 
C2 =2mvV0a~2/ (hbar~2); 
rhs = Tan[ka]; 
lhssym = Sqrt[C2 - (ka) *2] / (ka); 
lhsasym = -ka/Sqrt[C2 - (ka) *2]; 
equatsym = Sqrt[C2 - (ka) *2] / (ka) -Tan[ka]; 
equatasym = -ka/Sqrt[C2 - (ka) *2] -Tan[ka]; 
(*---location of the singularity in k---¥*) 
kmax = Sqrt[C2/a%*2]; 
(*---number of symmetric eigenvalues---*x) 
nsym = Floor[N[kmax/ (Pi/a)]] +1; 
(*---number of antisymmetric eigenvalues---+*) 
nasym = Floor[N[(kmax- Pi/ (2 a)) / (Pi/a)]] +1; 
(*---initialize the 
lists for the eigenvalues---+x) 
lsym = {}; 
lasym = {}; 
(*---calculate the symetric eigenvalues---+x) 
Do[resultsym = Chop[FindRoot[ 
equatsym== 0, {k, 0.1+ (Pi/a) (i-1)}]]; 
AppendTo[lsym, resultsym], {i, 1, nsym}]; 
(*---Chop[] replaces 
small numbers (<10*(-10)) by 0---«) 
(*---calculate the antisymmetric eigenvalues---+*) 
Do[resultasym = Chop[FindRoot[equatasym =: 0, 
{k, Pi/ (2a) +0.1+ (Pi/a) (i-1)}]]; 
AppendTo[lasym, resultasym], {i, 1, nasym}]; 
(*---plot the eigenvalue equation---+*) 
ymax = lhssym1.5/. 1lsym[[1]]; 
Off[Plot: :plnr] ; 
Plot[{rhs, lhssym, lhsasym}, 
{k, 0.01, 3 kmax/ 2}, PlotRange > {-ymax, ymax}, 
Prolog > Thickness[0.001], 
PlotStyle > {RGBColor[1, 0, 0], Dashing[{}], 
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Dashing[{1/60}]}, AxesLabel > {"k", " "}]; 
On[Plot: :plnr] ; 
(*---plot the symmetric eigenfunctions---x) 
Do[k1 =k /. lsym[[i]]; 
Plsym[i] = Plot[PsiSym[x, kl, a], {x, -2a, 2a}, 
AxesLabel > {"x", "\!\(w\*s\) \n"}, PlotLabel -> 
ul \!\(k\_i\) = "<> ToString[k1], 
Frame -> True, PlotRange >All, 
Prolog — Thickness[0.001], PlotStyle > 
{Dashing[{1/ (i 20)}]}], {i, 1, nsym}]; 
(*---plot the antisymmetric eigenfunctions---x«) 
Do[k1=k/. lasym[[i]]; 
Plasym[i] = Plot[PsiASym[x, k1, a], {x, -2a, 2a}, 
AxesLabel > {"x", "\!\(w\*a\) \n"}, 
PlotLabel ->" \!\(k\_i\)= "<> ToString[k1], 
Frame -> True, PlotRange >All, 
Prolog ~ Thickness[0.001], PlotStyle > 
{Dashing[{1/ (i 20)}]}], {i, 1, nasym}]; 
(*---print the eigenvalues---+x) 


Peet [cs 
Print[" ---- eigenvalues ---- "]; 
Lente Pll WI) 
Do[k1l=k/. lsym[[i]]; 
If[i<nasym, k2 =k/. lasym[[i]], k2 = "---"]; 
Print[" sym eigenvalue k", 
i, " = ", kl, " asym eigenvalue k", 
i," =", k2], {i, 1, nsym}]]; 
End[]; 


EndPackage[] ; 


Set::patset : Warning: k: usage in assignment 
k : usage = Eigenvalue. represents a named pattern; 


use symbol::tag to represent a message name. More... 


Here are some tests of the symmetric and antisymmetric wave function. 
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Plot[{PsiSym[x, 1.30183, 1], 
PsiSym[x, 3.818578969739773~, 1]}, {x, -2., 2}, 
Frame -> True, FrameLabel -> {"x", "g&"}, 
PlotStyle -> {RGBColor[1, 0, 0], RGBColor[0, 0, 1]}, 
Prolog -> {{RGBColor[1, 0, 0], Text["k,=1.3018", 
{1., -0.220252}]}, {RGBColor[0, 0, 1], 
Text ["k,=3.8185", {1., -0.420252}]}}]; 
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Plot[{PsiASym[x, 2.5856031391976373~, 1], 


Frame -> True, FrameLabel -> {"x", "%?"}, 


{1.2, -0.220252}]}, {RGBColor[0, 0, 1], 
Text ["k,=4.8515", {1.2, -0.420252}]}}]; 


PlotStyle -> {RGBColor[1, 0, 0], RGBColor[0, 0, 
Prolog -> {{RGBColor[1, 0, 0], Text["k,=2.5856", 


PsiASym[x, 4.851591489119471~, 1]}, {x, -2., 2}, 


1)}, 


0.75 
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5.9.2 Package HarmonicOscillator 


The package MHarmonicOscillator provides functions to 


eigenfunctions of the harmonic oscillator. 


represent 


BeginPackage["HarmonicOscillator'"]; 


Clear[a, across, Psi, wcl, wqm]; 


Psi: :usage = 
"Psi[xi_,n_] represents the eigenfunction 
of the harmonic oscillator. The first 
argument xi is the spatial coordinate. The 
second argument n fixes the eigenstate."; 


wel: :usage = 


"wel[xi_,n_] calculates the classical probability 
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of locating the particle in the harmonic 
potential. The first argument xi is the 
spatial coordinate while n determines 
the energy given as eigenvalue."; 


wqm: :usage = 
"wqm[xi_,n_] calculates the quantum mechanical 
probability for an eigenvalue state n. The first 
argument represents the spatial coordinate."; 


a::usage = "a[psi_, xi_:x] annihilation operator for 
eigenfunction psi. The second argument specifies 
the independent variable of the function psi."; 


across: :usage = 
"across[psi_, xi_:x] creation operator for 
eigenfunction psi. The second argument 
specifies the independent variable of psi."; 


x::usage; 
Begin[" Private "]; 


(*---eigenfunctions of the harmonic oscillator---+*) 
Psi[xi_,n_] := 


HermiteH[n, xi] Exp[-xi*2/2]/Sqrt[n! 2*nSqrt[Pi]]; 
VEN (\(#\_n_[€_] := Psi[é, n];\) \) 


(*---classical probability distribution 
of the harmonic oscillator---*x) 
wel[xi_,n_] :=1/ (Sqrt[2n+1] 
Sqrt[1- (xi/Sqrt[2n+1]) *2] 2 Pi); 


(*---quantummechanical probability 
distribution of the harmonic oscillator---*x) 
wqm[xi_, n_] := Psi[xi, n] *2; 


(*---annihilation operator---*x) 
a[psi_, xi_: x] := (xipsi+D[psi, xi]) /Sqrt[2]; 


(*---creation operator---x«) 
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across[psi_, xi_: x] := (xipsi-D[psi, xi]) /Sqrt[2]; 


End[]; 
EndPackage[] ; 


5.9.3 Package AnharmonicOscillator 


The package AnharmonicOscillator serves to determine the properties of 
the Péschel—Teller problem. 


BeginPackage["AnharmonicOscillator™"]; 
Clear[AsymptoticPT, PlotPT, PoeschelTeller] ; 
PoeschelTeller: :usage = 
"PoeschelTeller[x , n_, indexN_] calculates the 
eigenfunction of the Poeschel Teller potential 
for discrete eigenvalues.N determines the 
depth of the potential vO Sech[x] by VO=N( 
N+1).n fixes the state where 0 < n <= N."; 


wla::usage = "The variable contains the 
analytic expression for the asymptotic 
approximation for x -> -Infinity."; 


w2a::usage = "The variable contains the 
analytic expression for the asymptotic 
approximation for x -> Infinity."; 


Transmission: :usage = 
"Variable containing the expression 
for the transmission coefficient. The 
independent variables are N and k."; 


Reflection: :usage = 
"Variable containing the reflection coefficient. 
The independent variables are N and k."; 


AsymptoticPT: :usage = 
"AsymptoticPT[indexN ,kin_] determines the 
asymptotic approximation for |x|->Infinity 
for the continuous case of eigenvalues in 
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a Poeschel Teller potential. The function 
yields an analytic expression for|b(k) |*2. 
The variables Transmission and Reflection 
contain the expressionsfor the transmission 
and the reflection coefficients. wla and 
w2a contain the approximations for x-> 
-Infinity and x->Infinity, respectively."; 


PlotPT: :usage = 

"PlotPT[kini_,kend_,type ] gives a graphical 
representation of the reflection or transmission 
coefficient depending on the value of 
thevariable type. If type is set to 
the string r the reflection coefficient 
isplotted. If type is set to the 
transmission coefficient is represented. 
This function creates 5 different curves."; 


Begin[" Private "]; 


(*---define the eigenfunctions---+*) 
PoeschelTeller[x , n Integer, indexN Integer] := 
Block[{norm, integrand, xi}, 
If[n < indexN&&n>0, (*---eigenfunctions are 
the associated Legendre polynomials---+*) 
integrand = LegendreP[indexN, n, xi]; 
(*---calculate the normalization constant---+*) 


norm = 
Integrate[integrand*2/(1-xi*2), {xi, -1, 1}]; 
(*---normalize and simplify the functions---x) 


integrand = integrand / Sqrt[norm] /. xi > Tanh[x]; 
Simplify[integrand], 
(*---error conditions---+*) 
If[indexN <n, 
Print["--- wrong argument! use n > N"]]; 
If[n<0, Print["--- wrong 
argument! use n < 0"]]]]; 


(*---asymptotic expansion---x«) 
AsymptoticPT[indexN _, kin ] := 
Block[{k, rulel, rule2, wavefktl, wavefkt2, 
asymptl1, wl, asymt2, w2, akh, bkh, ak}, 
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(*---replacement rules for the parameters---x) 
rulel = {a+1/2-I1k+(1/4+V0)*(1/2), 
b3o1/2-I1k- (1/4+V0)*(1/2), c91-I1k}; 

rule2 = {V0 > indexN (1 + indexN) }; 

wavefkt1 = ak ((1-xi*2) /4)*(-Ik/2); 

wavefkt2 = Hypergeometric2Fl[a, b, c, (1+xi) /2]; 
(*---asymptotic expansion for x>-Infinity, 
equation 5.5 .63---x) 

asymtl1 = Series[wavefkt2, {xi, -1, 0}]; 

wil = wavefkt1 Normal[asymt1] /. rulel; 

wl =wil1/. rule2; 

wl =wl/. xi > Tanh[x]; 

wl = Simplify[w1]; 

wl =wl/. Sech[x] > 2 Exp[-x]; 

wla = PowerExpand[w1] ; 

(*---asymptotic expansion for x» 

Infinity by equation 5.5 .65-5.5 .68---x) 
asymt2 = Series[wavefkt2, {xi, 1, 1}]; 
(*---invert substitution---+*) 
w2 = wavefktl1 Normal[asymt2] /. xi > Tanh[x]; 
(*---eliminate higher terms---+x) 
w2 = Expand[Simplify[w2 /. -1+Tanh[x] > 0]]; 
(*---asymptotic 

behavior for Sech[] and Tanh[]---+*) 
w2 =w2/. {Sech[x] > Exp[-x], 
1 - Tanh[x] > Exp[-2 x]}; 
w2 =w2/. rulel; 
w2 =w2/. rule2; 
w2a = PowerExpand[w2] ; 
(*---determine the 
coefficients a[k] and b[k]---+*) 
akh = Coefficient[w2a, Exp[-Ikx]] /. ak71; 
bkh = Coefficient[w2a, Exp[Ikx]] /. ak >1/akh; 
(*---calculate the transmission and 
reflection coefficient---*) Transmission = 
1/ (akh Conjugate[akh]) /. k> kin; 
Reflection = bkh Conjugate[bkh] /. k > kin; 
{Transmission, Reflection}]; 


(*---graphical representation of the 
reflection and transmission coefficient---+*) 
PlotPT[kini_, kend_, type ] := 
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Block[{k0 = kini, ke = kend, p, tl, label}, 
tl = Transpose[Table[AsymptoticPT[indexxN, kk], 
{kk, k0, ke, (ke-k0) /5}]]; 
If[type = "r", p=t1[[2]]; 
label = "|b|?", 
p=ti[[1]]; 
label = "|al|?"]; 
Plot[Chop[p], {indexxN, 1, 2}, AxesLabel > 
{"N", label}, Prolog ~ Thickness[0.001]]]; 
End[]; 
EndPackage[] ; 


5.9.4 Package CentralField 


CentralField is a package allowing you to represent the eigenfunctions for 


problems with a central field. 


BeginPackage["CentralField™"]; 
Clear[Radial, Angle, AnglePlot, Orbital]; 


Radial::usage="Radial[ro , n, l, 

Z_] calculates the radial representation 
of the eigenfunctions for an electron in 

the Coulomb potential. The numbers 
n and 1 are the quantum numbers for the 

energy and the angular momentum 
operator. Z specifies the number of 

charges in the nucleus. The radial 
distance between the center and the 

electron is given by ro."; 


Angle: :usage = "Angle[theta_, phi , 
1_, m_] calculates the angular part of 

the wave function for an electron in the 
Coulomb potential. The numbers L 

and m denote the quantum numbers for the 
angular momentum operator. Theta 

and phi are the angles in the spherical 
coordinate system."; 
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Orbital: :usage = "Orbital[theta _, 
phi_,1l_,m_,type String] calculates the 
superposition of two wave functions for 
the quantum numbers m1 = +m and 
m 1 = -m. The variable type allows the 
creation of the sum or the difference 
of the wave functions. The string values 
of type are either plus or minus."; 


AnglePlot: :usage = 
"AnglePlot[pl_,theta_,phi_] gives a graphical 

representation of the function contained 

in pl. The range of representation 
is Pi <= phi < 5 Pi/2 and 0 < theta < 

Pi. Theta is measured with 
respect to the vertical axis. This function 

is useful for ploting the orbitals 
and the angular part of the eigenfunction."; 


(*---define global variables---x«) 


theta: :usage; 
phi: :usage; 
ro: :usage; 

n: :usage; 
1::usage; 

Mm: :usage; 


Begin[" Private "]; 


(*---radial part of the eigenfunctions 
in the Coulomb potential---x) 


Radial[ro ,n_,1_,Z _] :=Block[{norm, hnl}, 
(*---normalization---*) 
norm = (Sqrt[(n+1)!/(2n(n-1-1)!)] 
((2Z) /n)*(14+3/2))/(21+1)!; 
(*---definition of the wave function---*x) 
hnl = norm ro*1Exp[-((Z ro) /n) ] 
HypergeometriclF1[1l+1-n, 21+2, (2Zro) /n]]; 
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(*---angular part of the 
eigenfunctions in the Coulomb field---+x) 


Angle[theta_, phi _, 1 _,m_] :=Block[ 
{norm, legendre, x, angle, ml, result}, ml = Abs[m] ; 


(*---normalization---+*) 

norm = (-1) “m1 Sqrt[ 
((21+1) (l-ml1)!) / (2 (1+m1) !)] /Sqrt[2 Pi]; 

(*---eigenfunctions---+*) 
legendre = 

Sin[theta] “ml D[LegendreP[1, x], {x, m1}]; 
legendre = legendre /. x > Cos[theta] ; 
(*---consider the cases m>0 and m<0---x+) 
If[m20, angle = Exp[Imphi], 

angle = (-1) “ml Exp[- (Im1 phi) ]]; 
(*---normalized eigenfunction---*x) 


result = norm legendre angle] ; 
(*--create orbitals---*) 


Orbital[theta_, phi _,1_,m_, type String] := 
Block[{norm, m1, rule, wave, wave2}, 
ml = Abs[m]; 
(*---replacement rule 


for the exponential function---+*) 
rule = {E* (Complex[0, a_] (x_.)) > 
Cos[x Abs[a]] +I Sign[a] Sin[x Abs[a]]}; 
(*---distinguish different cases---x) 
If[ml 21, 
If[type == "plus", 
(*---sum of the 
wave functions for a fixed m---*) 
wave = Expand[Angle[theta, phi, 1, m1] + 
Angle[theta, phi, 1, -ml1] /. rule], 
(*---difference of the wave function 
for a fixed m---x) 
wave = Expand[Angle[theta, phi, 1, m1] - 
Angle[theta, phi, 1, -m1] /. rule]]; 
wave2 = wave~2; 
(*---normalization of the superposition---x«) 
norm = 
Integrate[wave2, {phi, 0, 2 Pi}, {theta, 0, Pi}]; 
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wave2 = Expand[wave2 / Abs[norm] ], 
wave = Angle[theta, phi, 1, m1]*2]]; 


(*---graphical representation 
of the angular part---x) 


AnglePlot[pl_, theta_, phi_] :=Block[{}, 
(*---theta is measured with respect to 
the vertical axis---+*) ParametricPlot3D[ 
{-pl Sin[theta] Cos[phi], -pl Sin[theta] Sin[phi], 
pl Cos[theta]}, {phi, Pi, 5 Pi/2}, {theta, 0, Pi}, 
PlotRange > All, PlotPoints > {40, 40}]]; 
End[]; 
EndPackage[] ; 


6 
General Relativity 


6.1 Introduction 


This chapter collects a few examples discussed in connection with general 
relativity. The examples are the bending of a light beam in a gravitational 
field, Einstein's field equations, the Schwarzschild solution, and the 
Reissner—Nordstrom solution for a charged mass point. The given 
examples are prominent examples to exemplify the use and techniques of 
symbolic computing in the field of general relativity. 


General relativity is a widespread theory which today incorporates 
different disciplines such as experimental test, exact solutions, formalism 
of general relativity, gravitational radiation, gravitational collapses, initial 
value problem, alternative theories, unified field theories, quantum gravity, 
and many others. In our discussions, we will restrict ourselves to exact 
solutions and modeling of gravitational effects. These branches were 
originally created by different people. The core contributions were made 
by Einstein (see Figure 6.1.1) who based his theory on Riemann's theory 


on curved space. The specific contributions of original and successful 


704 


6.1 Introduction 


solutions for different problems originating from Einstein's input were 
given by Friedman, Schwarzschild, and others. The derivation of solutions 


and applications to specific problems continuous until the present. 


Figure 6.1.1. | Albert Einstein: born March 14, 1879; died April 18, 1955. 


Riemann (see Figure 6.1.2) by himself was never involved in the creation 
of general relativity but contributed a theory that supports efficiently and 
successfully to describe the phenomenon of gravitation in a contemporary 
way. When Riemann established his theory on curved space, the traditional 
theory by Newton was used to describe gravitation phenomena. Newtonian 
theory provides an outstanding example for a theory which governed many 
centuries of science. At the end of the 19th century, it was becoming 
increasingly clear that something was fundamentally wrong with the 
current theories, but there was considerable reluctance to make any 
fundamental changes to them. Instead, a number of artificial assumptions 
required the genius of Einstein to overthrow the prejudices of centuries 
and demonstrate in a number of simple thought experiments that some of 
the most cherished assumptions of Newtonian theory were untenable. This 
was the beginning of relativity. Relativity developed in different stages. 
First, with Einstein's brilliant papers in 1905, the special theory of 
relativity was introduced. Later, on in the 1920s, Einstein developed 


general relativity. 
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Figure 6.1.2. _ Georg Friedrich Bernhard Riemann: born September 17, 1826; died June 20, 1866. 


Out of the general relativity theory a number of old and new questions 
arose. One of these questions was the movement of the perihelion of 
Mercury. It was an outstanding question of how these movement could be 
described in a consistent way. However, Newton's theory allows a way of 
explaining how the movement can be motivated, but it remained an open 
problem until Einstein's general relativity theory was established. Since 
then, many old questions could be attacked. However, there also occurred 
new ones due to the mathematics by Riemann. A famous solution of the 
spherical Einstein equations was given by Schwarzschild (see Figure 
6.1.3). He and others realized that the nonlinear Einstein equations are 
very complicated and allow a wealth of new solutions. This will be one of 
the subjects in this chapter. 
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Figure 6.1.3. Karl Schwarzschild: born October 09, 1873; died May 11, 1916. 


In Section 6.2 we introduce some notions from general relativity theory. 
Light bending is discussed in Section 6.3. Einstein's field equations are 
presented in Section 6.4. The Scharzschild solution and the Reissner 
Nordstrom solutions are discussed in Sections 6.5 and 6.6. 
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6.2 The Orbits in General Relativity 


From the classical theory of orbital motion we know that a planet in a 
central force field moves in an ellipse around the center of the planetary 
system. The orbit of the planet is confined to a plane with fixed 
orientation. This behavior is in contradiction to the observations made at 
the turn of the century. From observations of the orbital motion of planets, 
especially of Mercury, astronomers have discovered that the perihelion of 
the orbit is rotating. This movement of the perihelion is called perihelion 
shift. The classical theories of Kepler and Newton do not accurately 
describe the perihelion shift. The second law of Kepler states that a planet 
moves in an ellipse around the center of the planetary system. In classical 
theory, the orbital motion is governed by the conservation of energy and 
angular momentum. The conservation of angular momentum confines the 
planet to a plane. Another conserved quantity of Newton's theory is the 
Lenz vector. The Lenz vector is a vector from the focus to the perihelion 
that is constant (i.e., in classical theory, the perihelion is at a fixed point in 
space). In Einstein's general theory of relativity (GR), these assumptions 
are altered. In GR, the orbits are not closed paths and there exists a 
perihelion rotation. The actual planetary orbits are rosettes. For these types 
of orbit, the perihelion rotates slowly around the Sun. The rotation of the 


orbit results from two effects [6.1]: 


1. To calculate the orbit using special relativity, we have to take into 
account an increase of the mass by 


m= Vine” (6.2.1) 


where mp is the rest mass of the planet, c is the velocity of light, and v 
is the velocity of the planet in the orbit. 


2. The central star produces a gravitational field. According to Ein- 
stein's theory, this gravitational field is related to an energy density 
which, in turn, is directly connected with a mass density. The addi- 
tional mass density of the field adds a certain amount of field strength 
to the strength of the Sun. 


Both effects are relevant in explaining the perihelion shift of a planet. In 
the following, we consider the second effect in more detail [6.1]. The Sun 
of our solar system possesses a much larger mass than the accompanying 
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planets, which means that we can locate the origin of the coordinate 
system in the Sun. Since the orbit is confined to a plane in space 
(conservation of angular momentum), we can use plane polar coordinates 
(r, @) to describe the motion of the planets. In GR, the distance between 
two points is not simply given by the radial distance r but is also a function 
of the radial coordinate. If we denote time by ¢, we can express the line 
element ds” in space-time in the Schwarzschild metric by 


dr’ 


cep ore, (6.2.2) 


de = 2 (1- © )dP- 


Dt[r]? - r? Dt[¢]? 


a3 Rs a 1 
ds2 =c* {1 - —) Dt[t]* - 
r e= 


Rs 


(dry 
ES 


+e(I = AS) (an? - Poy 


[6.2], where c denotes the speed of light and R'=2Gm/c* is the 
Schwarzschild radius of the gravitational field. G is the gravitational 
constant and m is the mass of the Sun. The Lagrangian of the motion in 
this metric is given by 


Ri) 42 ae 1 2 
ROA) t aap ae eS (6.2.3) 


schwarzschildLagrangian = 


2 
Ge [2- = (8,t[8])* - sere 2 Beir (0:¢[s])? 
r[s] 2 


Rs 


r[s] 


r'(s)" 2 Rs (2 1 2 H's)? 
ate (1- A) — 5 1 $6) 
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where the primes denote differentiation with respect to the line element s. 
Since GR is a geometrically based theory, the orbits of the theory are 
derivable by a variational principle. Fermat's principle, which governs the 
path of a light beam, is an example from optics. In GR, the orbits follow 
from the extremum of the action as determined by the Lagrangian. In close 
analogy to our considerations in Section 2.6, the equations of motion of 
GR follow from the Euler-Lagrange equations in the form 


d OL OL 
a (oF) = a = 0, (6.2.4) 
4 (35) - 5g = 9 (6.2.5) 

d OL OL 
4 (=) -~ 5 =0. (6.2.6) 

swEquations = 


EulerLagrange[schwarzschildLagrangian, {r, $, t}, s]; 
swEquations // TableForm 


Rsr/(s) Rs t'(sP rsd 2r"(s) 
t r(s) d'(s)” + + = 0 
(1-35) ro? oe Os) ees 


6 (s) rs)? +2 r'(s) 6'(s) r(s) == 0 


2Rs r’'(s) t'(s) c? 2Rst’"(s) c2 ” 2 aos 
“oe + 7) 2 t''(s) c* == 


Unlike the classical theory of variation, here we consider time ft as a 
dependent variable. Using Eq. (6.2.3), Eqs. (6.2.5) and (6.2.6) lead to 
angular momentum / and energy conservation: 


ae = const. = 7, (6.2.7) 
ot = const. = Ey (6.2.8) 
or 
P¢'=1=—-k, 
db RF . (6.2.9) 
247 RB )\pi pk 
e(L-—)r == aye" (6.2.10) 
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angularMomentum = 


Map [Integrate[#, s] &, {swEquations[2, 1]}][1] == 


flat 
VB 


1 
r(sy° 6'(s) == te 


energy = 
MapAt [Integrate[#, s] &, {swEquations[3, 1]}, 1][1] == 
k? 


o2 VB 


2c? (r(s)—Rs)t(s) __ ke 


r(s) 2VvB 


where k and £ are appropriate constants for the following considerations. 
Using the conserved quantities in the expression of the line element 
(6.2.2), we get 


dr er 
_= =(-64+ ate -P) dg. (6.2.11) 
Substituting u = 1 /r simplifies the equation of the orbit to 
2 2 
(S$) = 5 -d-R Bru). (6.2.12) 


This exact equation is usually solved by using the perturbation theory, 
which approximates the solution for a certain range [6.3, 6.4]. In Section 
6.8.2, the code is given using the solution steps to solve Eq. (6.2.12). The 
package implements the essential steps. Since the equation consists of a 
polynomial of third order in u, the solution of Eq. (6.2.12) is expressible 
by elliptic functions. To see how this occurs, we carry out the necessary 


transformation 
4U 1 
u= Rs + ZR (6.2.13) 


and substitute it into Eq. (6.2.12). The resulting differential equation is the 
defining equation for the Weierstrass function P(z): 
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2 
(Sp) =4U3-gU-g. (6.2.14) 


However, Mathematica can deliver a preliminary version of this solution 
by 


DSolve[ (,U[¢])” == 4U[$]* -g2U[$] - 93, U, 4] 


Solve::tdep : The equations appear to involve the 


variables to be solved for in an essentially non—algebraic way. More... 


Solve::tdep : The equations appear to involve the 


variables to be solved for in an essentially non—algebraic way. More... 


{Solve 


[> #sin-'oV ((Root[4 #1? — g2 #1 — g3 & 3] — U(d))/(Root[4 #1> — g2 


#1 — 93 &, 3]- 


Root[4 #1> — g2 #1 — g3 &, 2)))) | 


Root[4 #13 — g2 #1 — g3 &, 2] — Root[4#1° — g2 #1 — g3 &, 3] 
Root[4 #13 — g2 #1 — g3 &, 1] — Root[4 #1? — g2 #1 — g3 &, 3] 


U() — Root[4 #13 — g2 #1 — g3 & 1] 
Root[4 #13 — g2 #1 — g3 &, 3] — Root[4 #1? — g2 #1 — g3 &, 1] 


U(¢) — Root[4 #1? — g2 #1 — g3 &, 2] 
Root[4 #1> — g2 #1 — g3 &, 3] — Root[4#1° — g2 #1 — g3 &, 2] 


/ 


U(¢) — Root[4 #1? - g2 #1 - g3 &, 3] 
Root[4 #1° — g2 #1 — g3 &, 2] — Root[4 #1? — g2 #1 — 93 &, 3] 


(U(#) — Root[4#1> — g2 #1 — g3 &, 3) 


V4U@) -2UG)-B |=c-4, UO} 


sane #{sin-'oV ((Root[4 #17 — g2 #1 — g3 &, 3] — U(d))/ 


(Root[4 #1? — g2 #1 — g3 &, 3] - 
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Root[4 #1> — g2 #1 — g3 &, 2]))) | 


Root[4 #1° — g2 #1 — 3 &, 2] — Root[4 #1? — g2 #1 — 93 &, 3] 
Root[4 #13 — g2 #1 — g3 &, 1] — Root[4#1° — g2 #1 — g3 &, 3] 


U() — Root[4 #13 — g2 #1 — g3 & 1] 
Root[4 #1° — g2 #1 — 3 &, 3] — Root[4 #1? — g2 #1 — 93 & 1] 


U(g) — Root[4 #13 — g2 #1 — g3 &, 2] 
Root[4 #13 — g2 #1 — g3 &, 3] — Root[4#1° — g2 #1 — g3 &, 2] 


/ 


U(@) — Root[4 #1? — g2 #1 — g3 &, 3] 
Root[4 #1> — g2 #1 — g3 &, 2] — Root[4#1° — g2 #1 — g3 &, 3] 


(U(#) - Root[4#1° — g2 #1 — g3 &, 3]) 


V4U@) - 22U@)-33 |=$+e1, U@]} 
where 
bes eB 
§2 = 12 4 : ’ ad (6.2.15) 
— 1 RR (RYE 
83 = 216 ~ 24 162 e219) 
The solution of U is thus 
U =P(O+ C; 82, 93), (6.2.17) 


where C denotes the integration constant. The orbits are now represented 
by the coordinates r and ¢ as: 


3 R 
r() = TH12 P(b+Csenes) * (6.2.18) 
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6.2.1 Quasielliptic Orbits 


If go and g3 are real and the discriminant A = g3 — 27 g3 > 0 we find three 
real roots of the characteristic polynomial 4 .x° - g) x— 3 =0 which we 
call e;, @2 and e3. The roots of the characteristic polynomial can be 
arranged in the order e2 < e3 < e;. Using the roots and the expressions g 
and g2, we can express the periods w; and w2 of the Weierstrass function 
by 


and 


wy =i { es (6.2.20) 
oo V 423-22 1-83 

The first period w,; is a real and the second period w 2 is an imaginary 

number. Ww, is the period of the angle ¢. If we introduce a third frequency 

w3, the equation of the orbit (6.2.18) is expressible in the form 


r(p) = one (6.2.21) 
By introducing w3, we are able to suppress the singularity of the 
Weierstrass function at z = 0. The correct specification of the orbit is made 
by the choice of the locations of the perihelion and the aphelion. Choosing 
the coordinate system so that the perihelion is reached at ¢ =0, we get 
from Eq. (6.2.21) 


3R 3R° 
0) = TiPCe,) = Tri2e? (6.2.22) 
=i 
“as -0 (6.2.23) 
and 
2-1 
“ z (6.2.24) 


Once the planet has approached the aphelion, it has traced one-half of the 
total orbit. This point of the orbit is characterized by the angle ¢ = w;. The 
radial coordinate at this point is expressed by 


= 3R _ __3R Bt 
MO) = TPeca) = 2p |) = Tel2e? (6.2.25) 
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d —1 

Tp = 0 (6.2.26) 
and 

2 1 

a ar >0. (6.2.27) 


The relations (6.2.25) and (6.2.27) are correct if the condition aa +@,>0 
is satisfied. This condition is equivalent to the relation c” 6 > k’, relating 
the parameters of the Weierstrass function to the physical parameters of 
the path. The radial coordinate of the orbit varies between the limits of the 
perihelion and the aphelion measured from the origin of the coordinate 
system. The two extremal values of the orbit are 


3 R* 
rp = ESDP (6.2.28) 
= aes ca 2.29 
TA 14+12e)° (6.2.29) 


The planet is thus confined between two circles with radii rp and r4. The 
path itself is an open orbit in the form of a rosette (see Figure 6.2.4, where 
only the path is shown). The orbit in Figure 6.2.4 is similar to the classical 
orbit of Kepler's theory. Unlike the classical orbit, the GR shows shifts of 
the perihelion and the aphelion. From the classical theory of planet motion, 
we know that the difference of phase between two complete rotations is 
given by 6 =27. Within GR the difference in the angle is exactly 2 w. 
The shift in the perihelion is thus determined by 


Ad? =2(a-)). (6.2.30) 
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TestPlanet 


Perihelion shift for a system of planets with m = 5.6369 x 10° kg, a = 5.2325 10® mand 
Figure 6.2.4. eccentricity e=0.61713. The numeric value of the perihelion shift is calculated to 
be A®? = 90122.8". 


The perihelion shift in the solar system is very small and its experimental 
observation is very difficult. However, the calculation of Eq. (6.2.30) 
needs to be precise in order to determine the exact numerical value of the 
perihelion shift. To calculate the shift using the Weierstrass function, we 
need an absolute accuracy of 107° in the values for P(z). In a graphical 
representation of the Mercury orbit for example, the shift is invisible. The 
observed and calculated shift for Mercury is 43.1" for 415 cycles 
(approximately one century). 


The perihelion and the aphelion are determined by relation (6.2.28). The 
locations of the perihelion and the aphelion are usually given by the 
classical parameters: the major semiaxis a and eccentricity e. If we 
combine both parameters of GR and classical theory, we get the relations 


for rp and rg: 


pooh, (6.2.31) 
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pease s, (6.2.32) 


—e 
where p=b?/a and e=Va2-B? / a. Having determined the extreme 
points of the orbit, we know the roots of the Weierstrass function P: e2 and 


e3 from relation (6.2.28). The roots are given by 


ae + (1- a (6.2.33) 
e=- (1- s ). (6.2.34) 


In terms of the orbit parameters, we find 


en =~ 45 (1- 284 (1- +), (6.2.35) 
es=—qy (1- 284 (1+ **)). (6.2.36) 


The roots of the P function have to satisfy the relations 


ej teg+e3 = 0, (6.2.37) 
2 (ef +e} + 3) = g0, (6.2.38) 
4e, €2 €3 = 83. (6.2.39) 


Here, the root e; becomes 


e= 4 (1- 23). (6.2.40) 


The quantities go and g3 are determined by expressions (6.2.15) and 
(6.2.16) and satisfy relations (6.2.38) and (6.2.39). We are now able to 
determine the energy Ep and the angular momentum / from the orbital 
parameters from Eq. (6.2.9) and (6.2.10). The angular momentum and the 
energy can be represented by 


a4) Wat (6.2.41) 


1 
Ey=-2 | S# & | (6.2.42) 


One problem with using the exact solution theory is the determination of 
the angles w; and w2 when calculating the perihelion shift with 
Mathematica. As mentioned earlier, we need a high degree of accuracy in 
our calculation to find the right value for Ad. If we do the calculations by 
simply integrating Eqs. (6.2.19) and (6.2.20), we have a singularity at one 
of the endpoints of the integration interval. Since we have no convergent 
representation of the integral, the results are very crude. However, we 
know from the theory of the Weierstrass functions that the periods are 
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expressible by complete elliptic integrals of the first kind. Using the 
properties of the elliptic integrals, we can overcome the inaccurate 


numerical integration of Mathematica: 


_ _K(m) 
Ww, = Ve\-er > (6.2.43) 
ieee K'(m ie K(1-m) (6.2.44) 
: Vei-e Vei-e9 , ™~ 


where the module m is given by m = (e3 — €2)/(e1 — é2), the roots of the 
Weierstrass function. 


The above considerations are collected in the Mathematica package 
PerihelionShift. An example of the application of PerihelionShift’ is 
given next. Let us first check the contents of the database for the planets 


Planets["List"] 


planet mean radius | eccentricity | mass 

Mercury | 5.791x10!° | 0.206 1.993 x 103° 
Venus 1.082 10!! | 0.007 1.993 x 10°° 
Earth 1.497x10!! | 0.017 1.993 x 10°° 
Icarus 1.610 10!! | 0.827 1.993 x 10°° 
Mars 2.228 x 10!! | 0.093 1.993 x 10°° 
Ceres 4.136x10!! | 0.076 1.993 x 103° 
Jupiter 7.780x 10!! | 0.048 1.993 x 10° 
Saturn 1.427x 10!" | 0.056 1.993 x 10°° 
Uranus 2.870 x 10! | 0.047 1.993 x 10°° 
Neptune | 4.496x10!7 | 0.009 1.993 x 10° 
Pluto 5.910x 10!? | 0.250 1.993 x 103° 
PSR1916 | 7.020x10® | 0.617 5.637 x 10°° 
TestPlanet | 5.233x10® | 0.617 5.637 x 10°3 


As result, we get a table containing 13 objects. The last planet is 
incorporated to visualize the perihelion shift in a plot. This shift can be 


calculated and visualized by 
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Orbit["TestPlanet"] ; 


TestPlanet 
mass 563694 14099999999 e34 
minor axes | 323780558.91557515 
majoraxes | 523270000.00000006 
eccentricity | .61713130000000005 


Perihelion shift = 90122.8 arcs 


TestPlanet 
2x 10% 
a 
8x 10%6x10%4 x40%2~ 108 10° 
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6.2.2 Asymptotic Circles 


In this subsection, we discuss a limiting case of GR orbits that is closely 
related to the classical orbits of the Kepler theory. We assume that the 
constants k and £ are such that the discriminant A vanishes. For this case, 
two of the roots e;, e2, and e3 are equal. If we denote the common root by 
e, the remaining root takes the value —2e. For e > 0, the solution of the 
orbit equation (6.2.18) is 


r(g) = Reo (6.2.45) 


where n* = 3 e. This solution results in an apogee with ¢ = 0, provided that 


8 n* < 1. This restriction is equivalent to the condition (R'Y p> z. 


If ¢ increases, the orbit of the planet spirals down to a circle of asymptotic 
radius 


3R 


Ere 


(6.2.46) 


This radius is smaller than the initial distance of the planet from the center 
of the planetary system (see Figure 6.2.5). If we choose nso that the 
relation 0 <n? < z is satisfied, the radius of the asymptotic circle lies 
between the limits 3 R® and 2 R*. The orbit for such cases is obtained by 
function D0Orbit[] defined in the package PerihelionShift’. An example 
for the application of this function to the test planet shows the following 
line: 
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DOOrbit["TestPlanet", 3 7]; 


TestPlanet 
mass 563694 14099999999 e34 
minor axes | 323780558.91557515 
majoraxes | 523270000.00000006 
eccentricity | .61713130000000005 


Perihelion shift = 90122.8 arcs 


1x10°; 


5x 


(aes 


NO 5x 107 1x 104.5x 102 102.5 x408 


5x10} 


-~1x10°! 


Figure 6.2.5. | Orbit for a test planet with A=0. 


6.3 Light Bending in the Gravitational Field 


Einstein's general theory of relativity predicts that a light ray is bent in a 
gravitational field. The corresponding equation of motion follows from the 
null geodesic condition ds* = 0 [6.2]. We discuss the bending of a light ray 
in the Schwarzschild metric. The equation of motion is given by 


u" +u- + R*® 2 = 0, (6.3.47) 
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where u = 1/r and R° = 2Gm/c? is the Schwarzschild radius of the mass 
m. G denotes the gravitational constant and c is the speed of light. 
Multiplying Eq. (6.3.47) by u'=du/d ¢ and integrating it with respect to 
parameter s we get 


1S 2 
dure 4+ e- = ae x, (6.3.48) 


where E and k, the energy and the scaled energy, are appropriately chosen 
constants. The substitution u=4U/R*°+1/(3R°) transforms equation 
(6.3.48) to a standard form of differential equations defining the 
Weierstrass function: 


(44) =4u?- U2; (6.3.49) 
with 

B= (6.3.50) 

gap - Oe (6.3.51) 


The solution for the variable U is given by 


U =P(b + C; go, g3). (6.3.52) 
The path of the light ray r(@) is 
3R° 
O) = TyiaPié+ Canes) * (6.3.53) 


The geometrical locations of the planet and the light rays are given in 
Figure 6.3.6. Figure 6.3.6 shows that the light ray has a distance R from 
the planet if the angle ¢ = 0. 


722 6.3 Light Bending 


py 


Geometry of light bending in the neighborhood of a mass m. The deviation angle ¢, follows 


Figure 6.3.6. from the relations ¢2 = 2 — ¢) and 6 = 7-2 ¢) =2¢) -7. 


When ¢ = 1, the radius (6.3.53) is infinite. The deviation or bending of 
the light ray 6¢ is determined by the relation 


66 =2¢6,-7 (6.3.54) 


(see Figure 6.3.6). Since the Schwarzschild radius R* and the constant 
k?/c? are greater than zero, it follows that the discriminant 
A=g93-27g3>0. 


The equation r(6=0)=R gives us the first expression for the 
determination of the roots e;, @2, and e3 of the characteristic polynomial 
4p— 82 t— g3 = 0. If we set ¢ = 0, it follows from Eq. (6.3.53) that 


3 R 
If we choose the integration constant as the imaginary period of the 
Weierstrass function C = —w2, we get from the condition P(—w 2) = e2 the 


relation 


3R° 
R= i+i2e, (6.3.56) 


and thus e) = -+ (1-3 R*°/R). Since go is fixed to 1/12 in the light 
bending problem, the remaining two roots e; and e3 satisfy 


g=2ejt+e+eay=4, (6.3.57) 
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ej teg+e3= 0. (6.3.58) 
We find, by eliminating e3 = —(e; + e2), in Eq. (6.3.57), the relation 
teeta ze =0, (6.3.59) 


which has the solution 


epedee te 1-368. (6.3.60) 


From Eq. (6.3.58), we can derive the solution for e; to be 


€=-(e +e)=-(4 + ¥ 1-366), (6.3.61) 


The remaining problem is to find the angle of inclination (i.e., the angle ¢, 


for which the radius tends to infinity). We can express this condition by 


3 

NP = G1) == Tip p¢i—ap ees) (6.3.62) 

Equation (6.3.62) is satisfied if 
1 

P(o1 — W2; 82, 83) + Fz = 9. (6.3.63) 
The frequency wz is derived from the roots e;, e2, and e3 and satisfies the 
relations 

W@W =Wt+W', (6.3.64) 

W =, real, (6.3.65) 

3 = W', imaginary. (6.3.66) 


In addition, there are two relations for the frequencies w and w': 


w - Kay sna? gap ee: 6.3.67 
V e1-€3 Ve—e3 ° (6.3.67) 


where the modulus m = (e2 — e3)/(e; —e3). Equation (6.3.63) is only 
solvable numerically and provides us with the limiting angle ¢,. The angle 
determines the asymptotic direction of the light ray. An example of the 
bending of a light ray near the surface of the Sun is shown in Figure 6.3.7. 
The graphical representation of the light bending is created using Orbit[], 
a function of the package LightBending’ which is available in Section 
6.8.3. The function Deviation[], which is also contained in this package, 
allows the numerical calculation of the bending angle. The arguments of 
Deviation[] are the mass of the planet and the closest approach of the light 
ray. 
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Orbit [RadiusOfTheSun, MassOfTheSun] ; 


Figure 6.3.7. Path of a light ray in the neighborhood of the sun. 


The deviation of a light beam passing the Sun can be determined by 


Deviation[RadiusOfTheSun, MassOfTheSun] 


FindRoot::Istol : 
The line search decreased the step size to within tolerance specified by AccuracyGoal and 
PrecisionGoal but was unable to find a sufficient decrease in the merit function. You 


may need more than 34. digits of working precision to meet these tolerances. More... 


Deviation = 1.74416 arcs 


8.455905338175976 x 10°° 
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6.4 Einstein's Field Equations (Vacuum Case) 


Einstein's theory of gravitation can be described by Riemannian geometry. 
In Riemannian geometry, space is characterized by its metric. The metric 
is normally represented by its line element ds” or equivalently by the 
metric tensor which can be read from the line element. The metric tensor 
allows the calculation of the scalar product of two vectors as well as the 
equations of motion. Einstein's field equations are the central equations of 
GR and describe the motion of a particle in space time. Since GR is 
primarily based on geometry, we have to consider the related metric of the 
space in addition to the physical problem. For our considerations, we 
assume that the independent variables in the space are given by 


IndepVar={t,x,y,z} 


{t, x, y, z} 


The coordinates are used in the determination of the metric tensor. The 
function metric[] calculates the coefficients of the metric tensor from a 
given line element. metric[] takes the line element ds’ and a list of 
coordinates as input variables. The result is the symmetric metric tensor of 
the underlying space. The following lines determine the metric tensor the 
comments in the function give a short description of the step performed: 


metric[lineelement_,independentvars List] :=Block[ 
{lenindependent, differentials, diffmatrix, 
metricform, varmetric,gh,sum,equation,rule, 
varhelp, zeros, zerorule}, 


(* --- determine the number of independent variables 
ee) 


lenindependent = Length[independentvars] ; 


(* --- create the differentials corresponding to 
dx,dt .... --- *) 


differentials = Map[Dt,independentvars] ; 


(* --- a matrix of differential products --- *) 
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diffmatrix = Outer[Times,differentials, 
differentials] ; 


(* --- the general metric form --- *) 
metricform = Array[gh,{lenindependent, 
lenindependent}] ; 
varmetric = Variables [metricforn] ; 


(* --- built a system of equations to determine 
the elements of the metric ---*) 
If[Length[metricform] == Length[diffmatrix], 
sum = 0; 
Do[ 
Do[ 


sum = sum + 
metricform[[i,j]] diffmatrix[[i,jll, 
{j,1,lenindependent}], 
{i,1,lenindependent}], 


sum = 0 
Le 

(* --- construct the metric tensor --- *) 
If[ sum === 0, 


Return [sum], 

sum = sum - lineelement; 

equation = CoefficientList[sum, 
differentials] ==0; 

rule = Solve[equation,varmetric] ; 

metricform = metricform /. rule; 

varmetric = Variables [metricformn] ; 


(* --- replace the nonzero elements --- *) 
varhelp = {}; 
Do[ 


If [Not [FreeQ[varmetric[[il],ghll, 
AppendTo[varhelp,varmetric[[i]] ] 
Ve 
{i,1,Length[varmetric] }]; 
zeros = Table[0,{Length[varhelp] }]; 
SubstRule[x ,y_ ]:=x->y; 
zerorule = Thread[SubstRule[varhelp, zeros] ]; 
metricform = Flatten[metricform /. 
zerorule,1]; 


(* --- make the metricform symmetric --- *) 
metricform = Expand[(metricform + 
Transpose [metricform] ) /2] 
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metricform 
le 
Off [Solve::svars] ; 
Off1[Solve::svars] ; 


The application of this function to different examples is demonstrated next. 


6.4.1 Examples for Metric Tensors 


As a first example, we consider a simple metric of a hypothetical 
two-dimensional space in x and f coordinates. The Mathematica symbol 


Dt[x] expresses the differential dx in line elements. 


MatrixForm[metric[t x Dt[t]7 +x Dt[x]7, {x, t}]] 
x 0 
& A] 


The result is a (2x2) matrix containing the coefficients of the line element. 


A simple three-dimensional example is the Euclidean space with the 
well-known cartesian metric. The corresponding line element is 
ds’ = dx +dy’ +d2. 


In traditional form, we get the metric by 


metric((dx)” + (dy)? + (dz)", {x, y, Z}) 


oor 
or © 
rer CO CO 


which is the expected result for the metric tensor. We see that metric[] 
extracts the metric tensor from the line element. The information contained 
in the metric tensor is of some importance in the derivation of the field 


equations. 
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The line element or the metric tensor for Euclidean space changes its form 
if we use a different coordinate system (e.g., the transformation from 
cartesian coordinates to spherical coordinates). In spherical coordinates, 
the metric tensor is given by 


MatrixForm[metric((dr)” +r? (6)? +r? (d¢)’ sin(6), {r, 9, $})] 


1 0 0 
0r 0 
0 0 Psin(6) 


where r is the radius and ¢ and @ are the spherical polar angles. 


A nontrivial example in three dimensions characterizing a curved space is 
given by the line element ds =dr+rd@+d2 in cylindrical 
coordinates r, ¢, and z. The corresponding metric tensor is 


MatrixForm[metric((dr)” + (dz)? +17 (d¢)’, {r, ¢, 2)] 


100 
0r 0 
00 1 


In four dimensions — three space dimensions and one time coordinate — the 
space corresponding to Euclidean space in three dimensions is the 
Minkowski space. Euclidean space with cartesian coordinates x, y, and z is 
extended by an additional time dimension f. Note the sign difference when 
distinguishing between the time coordinate and the space-time dimensions. 
The line element in x, y, z, and ¢ is given by ds” = df — dx’ —dy’ —d¢ 
(speed of light equals unity, c= 1). The corresponding metric tensor of 
Minkowski space reads 
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MatrixForm[metric((dt)” — (dx)* — (d y)* — (dz), {t, x, y, 2})] 


1 0 0 0O 
0-1 0 O 
0 0-1 O 
0 0 O -I1 


The Minkowski space is a trivial solution of Einstein's field equations for 
the vacuum case. A time-independent solution of the field equations with 
spherical symmetry is the famous Schwarzschild solution. The line element 
ds” in the coordinates t,r, 0, and @ is 


dry 2 
ds2 = —((d6)" + (dg) sin?(0)) r? — ‘ Z + (1 - (an? 


2; 
oF (1-2) 


(-(d6)" — (dg) sin’(6)) 7 


The corresponding metric is 


erg = metric(ds2, {t, r, 0, 6}); MatrixForm[erg] 


1-# 0 0 0 
0 st; 0 0 
0 0 -r 0 
0 0 0 -? sin*(6) 


This representation of the line element is a spherically symmetric solution 
of the vacuum field equations. The timelike coordinate ¢ can be interpreted 
as the world time. The coordinates 9 and ¢ can be identified as the usual 


angles in spherical coordinates. 


The above line element ds” resembles the line element in Euclidean space. 
In the following example, the radial coordinate r is transformed so that we 


can write the line element in the isotropic form 
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ds* = G(p) dt —F (p) (d p +pd + p sin’(6) dg’). The transformation 
reads r= p(1+m/(2 p)y. The corresponding line element of the metric 


reads 
m \2 2 
(1- sol (dt) m ts 2 2.2 a) 2 
ds3 = eae - os +1] ((d0) + (dg) sin’(9)) p~ + (dp)’) 
—+1 
2p 
5 
1-4) (dv 
: ( : ; ly Cr: + i) (((d0y’ + (dd sin”@)) p* + (dp)’) 
w+ 
2p 


and the corresponding metric tensor is 


g = metric(ds3, {t, p, 9, o}) 


{ m? iy 4om 4 2 0, 0 0} 
(m+2p)?  (m+290)% (m+2p)7/’ " 7 7?" 
m* m? 3 m? 2m 
- - -1, 0, 0 
, 16 p4 2 ps 2 p2 0 , , }, 
m4 m? 3m? 2 
0, a 16 p2 20 — 2 -2om- 9 ’ Oo}, 
0, 0, 0, - Sin[e]? m4 _ Sin[e]*m _ 
16 02 20 


Up to now, we have only discussed the line element of the metric and its 
related metric tensor. To derive the field equations for the vacuum case in 
GR, we have to introduce other tensors. One of the essential quantities 
determining the field equations are the Christoffel symbols. These symbols 


are related to the metric tensor in a straightforward way. 
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6.4.2 The Christoffel Symbols 


Every important relation or equation in a Riemannian space can be 
expressed in terms of the metric tensor or its partial derivatives. These 
expressions are often very complex. The Christoffel symbols are important 
expressions for formulating Einstein's field equations and for expressing 
the geometric properties of space. The Christoffel symbols contain the 
inverse of the metric tensor ginv and partial derivatives of first order with 


respect to the coordinates. The Christoffel symbols can be defined by 


Christoffel[m ,a_,b_,g_, ginv_] := Block[{n}, 


Expand [ 
Sum[ginv[[m, n]] (D[g[[a, n]], IndepVar[[b]] ] + 
D[g[[b, n]], IndepVar[[a]]] - 
D[g[[a, b]], IndepVar[[n]] ]), 
{n, 1, Length[g]}] /2] 


In mathematical notation, the function Christoffel[] is given by 


ab = sg "(Op 8ant Oa Sbn — On Sab). (6.4.68) 


Other important tensors needed to formulate the field equations are usually 
expressed in Christoffel symbols. The Christoffel symbols also appear in 
equations for metric geodesics (i.e., the equations defining the 
parameterized curve of a particle moving in space). In the following, we 
define tensors such as the Riemann tensor, the Ricci tensor, and so forth. 


6.4.3 The Riemann Tensor 


The curvature tensor, also called the Riemann tensor, is defined in terms of 
Christoffel symbols by 
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Riemann[a ,b,c,d,g_,ing ] :=Block[{}, 


Expand [ 
D[Christoffel[a, b, d, g, ing], IndepVar[[c]]] - 
D[Christoffel[a, b, c, g, ing], IndepVar[[d]]] + 
Sum[Christoffel[e, b, d, g, ing] 

Christoffel[a, e, c, g, ing], 

{e, 1, Length[g]}] - 
Sum[Christoffel[e, b, c, g, ing] 

Christoffel[a, e, d, g, ing], 

{e, 1, Length[g] }] 

] 


The Riemann tensor describes the geometric properties of the underlying 
space. A flat space contains a Riemann tensor with zero coefficients. 


A contraction of the Riemann tensor delivers the Ricci tensor. The Ricci 


tensor is a symmetric tensor in the form 


Ricci[m ,q ,g_, ing ] :=Block[{a}, 


Expand [ 
Sum[Riemann[a, m, a, q, g, ing], 
{a, 1, Length[g]}]]] 


Another contraction of the Ricci tensor defines the curvature scalar or 
Ricci scalar: 


RicciScalar[g , ing ] := Block[{}, 
Expand[Sum[ing[[a, b]] Ricci[a, b, g, ing], 
fa, 1, Length[g]}, {b, 1, Length[g]}]]]; 


Having these tensors available, we can proceed to the derivation of 


Einstein's field equations. 
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6.4.4 Einstein's Field Equations 


Einstein's vacuum equations are expressed by the Ricci tensor and the 
Ricci scalar: 


Einstein[m ,n_,g_, ing ] := 
RicciScalar[g, ing] g[[m, n]] 
2 


Ricci[m, n, g, ing] - 


The function Einstein[] gives the left-hand side of the equations and the 
right-hand side is equal to zero. The derived equations are nonlinear 
partial differential equations of second order in space and time. In addition 
to the field equations, there are four side conditions given by the Bianchi 


identities; these identities are a form of energy conservation: 


Bianchi[a_,g_, ing _] :=Block[ {}, 

Expand [ 

Sum[ D[Sum[ ing[[n, m]] Einstein[m, a, g.ing], 
{m, 1, Length[g]}], IndepVar[[n]] ], 

{n, 1, Length[g] }] 

+ Sum[ Sum[ Christoffel[n, m, n, g, ing] 
Sum[ ing[[m, 1]] Einstein[1, a, g, ing], 
{1, 1, Length[g]}], {m, 1, Length[g]}], 

{n, 1, Length[g]}] 

- Sum[ Sum[ Christoffel[n, m, a, g, ing] 
Sum[ ing[[m, 1]] Einstein[1, n, g, ing], 
{1, 1, Length[g]}], {m, 1, Length[g]}], 

{n, 1, Length[g]}] ] 

]; 
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6.4 Einstein's Field Equations 


The calculation of the 10 coefficients of the metric tensor g is an 
incompletely formulated mathematical problem since there are fewer 
equations than unknowns (6 equations with 10 unknowns). Since the 
metric tensor is a solution of the field equations, it is apparent that a 
coordinate transformation does not change the problem. When choosing a 
coordinate system, we are free to introduce gauge conditions. For example, 
Gaussian or normal coordinates are often introduced by setting go 9 = 1 
and go, =0 for a= 1, 2, 3. 


We now examine some examples for which we can use the functions 


defined above. The first is again the three-dimensional flat cartesian space. 


6.4.5 The Cartesian Space 


The cartesian space in three dimensions is characterized by the line element 


dsc = (dx) + (dy)? + (dz)? 


(dx) + (dy) + (dz 


with the independent variables 


IndepVar = {x, y, z} 


{x, y, Z} 


The metric form of this space is given by 


g = metric(dsc, IndepVar) 


oor 
oro 
re CO CO 
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The inverse of the metric tensor follows by 


ing = Inverse[g] 


oor 
oro 
a) 


which is simply the identity matrix. Then we calculate some of the 


Christoffel symbols to see which of them are not equal to zero. 


Christoffel[1, 1, 1, g, ing] 


Christoffel [1,1,1,g,ing] 


Christoffel [1,2,1,g,ing] 


Ricci[1,2,g,ing] 


It is trivial to see that all Christoffel symbols of this metric vanish. 
Consequently, the coefficients of the Riemann tensor vanish, too. This fact 
is expected because a cartesian space is flat. We now examine the 


cartesian space in different coordinate systems. 
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6.4.6 Cartesian Space in Cylindrical Coordinates 


The line element of cartesian space with cylindrical coordinates is 


expressed by 


IndepVar = {r, 9, z} 


{r, &, z} 


dscy = (dry + (dz)? +r (dy 


(dr) + (dz) + (dd) 


The metric tensor is given by 


g = metric [dscy, IndepVar] 


and the inverse of the metric tensor is 


ing = Inversel[g] 


1 0 0 
0+ 0 
00 1 


Contrary to the case of the cartesian coordinate system, the Christoffel 


symbols do not all vanish. 
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Table [Christoffel [i,j,k,g,ing],{i,1,3},{j,1,3}, 
{k,1,3}] 


{0, 0,0} {0, -r, 0} {0, 0, 0} 
{0, +, 0} {4, 0, 0} {0, 0, 0} 
{0,.0,0} {0,0, 0}  {0, 0, 0} 


Nevertheless, the Riemann tensor has to be zero for flat cartesian space in 
spite of the coordinate transformation: 


Table [Riemann [a,b,c,d,g,ing],{a,1,3},{b,1,3}, 

{c,1,3},{d,1,3}] 
00 0 00 0 0 0 0 
00 0 00 0 0 0 0 
00 0 00 0 00 0 
00 0 00 0 0 0 0 
00 0 00 0 0 0 0 
00 0 00 0 0 0 0 
00 0 00 0 0 0 0 
00 0 00 0 0 0 0 
00 0 00 0 00 0 


The disappearance of the Riemann tensor in flat cartesian space is 
independent of the corresponding coordinate system. To illustrate the 
situation, we next examine the Euclidean space in polar coordinates. 


6.4.7 Euclidean Space in Polar Coordinates 


With the spherical coordinates 


Indepvar = {r,0,¢} 


{r, 4, 6} 
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the line element and the corresponding metric are given by 


dscp = (dr)* +r? (d0y" +1? (d¢)’ sin’ (0) 


(dr? +7 (doy +P (dd) sin?(0) 


g = metric [dscp, IndepVar] 


1 0 0 
0r 0 
0 0 P sin?(0) 


The inverse metric tensor is 


ing = Inversel[g] 


1 0 0 
05 0 
0 0 a (A) 


The Christoffel symbols read 


}1 


Table [Christoffel [i,j,k,g,ing],{i,1,3},{j,1,3},{k,1,3 


{0, 0,0}  {0, -r, 0} {0, 0, —rsin?(6)} 
{0, 4,0}  {4,0,0} — {0, 0, -cos() sin(@)} 
{0, 0, +} {0, 0, cot} { 4, cot(), 0} 


As in the previous example, the Christoffel symbols do not vanish and are 
now even more complicated. However, again, as expected, the coefficients 


of the Riemann tensor are zero: 
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Simplify [Table [Riemann [a,b,c,d,g,ing],{a,1,3},{b,1,3} 
,{c,1,3},{d,1,3}] ] 


——~. 
#4.) 
—~. 
n>»): 


ooocoococlccoc co 
ooocoocooclucrcwlcO 
Nn Nee, 
——j\ 
ooocooocoeocucCc“wco © 
ocoooococlocmcmcrcrcllcrCOlLcO 
ooocoocococUcrwCcCOlLCc Oo 
ae NS 
ooo cccmcrmCcColLcO 
oooococlcocmcmcrmwClcCOlCcO 
cooocmclOCUCcCOCUCcCOCUcCOUcO 
Sa Ny 


> 


eee 
oooocoocclo;°o 
SSS 

a ak 


6.5 The Schwarzschild Solution 


6.5.1 The Schwarzschild Metric in Eddington—Finkelstein 
Form 


In this section, we discuss a nontrivial solution of Einstein's field 
equations, the famous Schwarzschild metric given in special coordinate 
representations. The Schwarzschild solution is a solution of Einstein's field 
equations with the highest symmetry (i.e., with spherical symmetry). 


In this representation, there are, as usual, a timelike variable ¢, a variable r 
related to distance, and two angle variables 6 and ¢. 


Indepvar = {t,r,0,¢} 


{t, r, 6, b} 


According to the Eddington-Finkelstein line element, 
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6.5 Schwarzschild Solution 


dss = —((d 0)" + (d¢)* sin’(0)) r? — 
2m 2m 
(= + i} (dry + (1 - (ao? - 
r 


r 


(4m) dt dr 


r 


2m 4mdrdt 


(-(d0)* = (dy sin?(0)) ? —( +1)(@r? +(1 an (a 


r 


The meaning of r and f¢ is different from the standard Schwarzschild 
solution. Due to our choice of r, a nondiagonal element between r and t 
appears. Here, the diagonal elements of r and ¢ are in a more symmetric 
form. Yet, the metric possesses the required symmetries: spherical 
symmetry and time independence. This metric is special in that it is regular 
at point r= 2m, whereas the Schwarzschild line element in its standard 
form is singular at this point. This metric can be interpreted as an 
analytical extension of the standard form in the region 2m <r < oo to the 


region 0 <r < oo. With the metric tensor 


g = metric[dss, IndepVar] 


1-22 -2" 0 0 
-2m -2"_-1 0 0 

0 0 -r 0 

0 0 0 -Pr sin?(6) 


and its inverse 


ing = Inversel[g] 


Csc[@]* (-2mr? Sin[e]* - r* Sin[6]”) 2m 
i 4 a , 0, o}, 
ug 
pen _ Csc[6]* (-2mr? sin[6]* + r4 sin[e]*) 0, 0} 
r v r4 v v € 
1 Csc[9]? 
LOR OR Se OL O00 Hh 


the Christoffel symbols and Ricci tensor are easily calculated. 


6. General Relativity 741 


Table [Christoffel [i,j,k,g,ing],{i,1,4},{j,1,4},{k,1,4 


}1 
2 m@ 2 m@ 
tl are eae OO) 
2 2 
(25, 2.28 0,9), 


{0, 0, -2m, 0}, {0, 0, 0, -2mSin[e]*}}, 


2 m2 2 m2 2 m2 2 m2 
{fe he ag Oe ee age ae On Oe 


{0, 0, 2m-r, 0}, {0, 0, 0, 2mSin[e]*-rSin[e}7}}, 


1 1 
{{0, 0, 0, O}, {0, 0, ry! Oo}, {0, rr’ 0, Oo}, 


{0, 0, 0, -Cos[6] Sin[e]}}, {{0, 0, 0, 0}, 


{0, 0, 0, =}, {0, 0, 0, Cot[e]}, {0, —, Cot [6], O}}} 


Table [Ricci[i,j,g,ing],{i,1,4},{j,1,4}] 


00 0 0 
00 0 0 
0 0 -cot?(9)+csc*(@)-1 0 
00 0 0 


With these quantities in hand, we can verify that the form of the 
Eddington—Finkelstein line element is a solution of Einstein's vacuum field 


equations: 


Simplify[ Table [Einstein[a,b,g,ing],{a,1,4},{b,1,4}] 
] 


ooo oe 
ooo oe 
ooo oe 
ooo oe 


In addition to the field equations, the Bianchi identities are satisfied also. 
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6.5 Schwarzschild Solution 


6.5.2 Dingle's Metric 


The metric of Dingle with three space coordinates and one timelike 


coordinate 


IndepVar = {t,x,y, z} 


{t, x, y, Z} 


is the most general metric in diagonal form. 


dsd = A(t, x, y, z) (dt)? - BIG, x, y, z) (dx) — 
Cl(t, x, y, z) (dy)? — DUt, x, y, 2) (dz) 


Al(t, x, y, D(dt)” -Bl(t, x, y, D (dx)? - 
Clit, x, y, J (dy -D1t, x, y, D(dz 


Hence, the metric tensor is a diagonal tensor 


g = metric[dsd, IndepVar] 


Al(t, x, ys 2) 0 0 0 
0 -Bl(t, x, y, 2 0 0 
0 0 -Cl(t, x, y, Z) 0 
0 0 0 -D1(t, x, y, 2 


and so is its inverse 
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ing = Inversel[g] 


RIS 0 0 0 
0 See 0 0 
0 0 Sea 0 
0 0 0 See 


Due to the form of the metric tensor, the Christoffel symbols are fairly 
simple expressions. 


Table [Christoffel [i,j,k,g,ing],{i,1,4},{j,1,4},{k,1,4 


}] 


aes ty X&, Yr Z A1(%1/) ft, x, y, z 
2A1[t, X, y, z : ZAL| Gy 7 Vez) i“ 
Al (9,9, 1,0) t, X, Vy Z Al (979,071) t, X, Vy Z } 
ZAL [ty ky Vie eZ t 2A1[t, x, y, 2] ’ 
AL (01/00) Tt, x, y, z B1(1r%% Tt, x, y, z — 
2A1[t, X, y, z i 2A1[t, x, y, 2] eee i 
AL Ott Oe, xe ye CTY ene Me 2d ‘ 
2A1[t, X, y, z wage 2A1[t, X, y, z " 
A1(%%%1) Tt, x, y, z ty D1(2r%% Te, x, y, Zz] } 
2A1[t, X, y, z tie Poe ZAL(ty: XV. 2] ’ 
A1(%1/00) Tt, x, y, z B1(1r%0% [t, x, y, z rae 
2Bl1i[t, X, y, z 7 2B1[t, x, y, 2] a a 
B1(1/009) Tt, x, y, z B1(%10% ft, x, y, z 
2B1i[t, X, y, z ¢ ZBL [ty -X; Vez) ° 
B1(%%1,% ft, x, y, z B1(%%%l) Tt, x, y, z ; 
2B1i[t, X, y, z Z2B1[t,: x; Ve Z] 7 
fo BIA ee Sh, CI eV 0} 
2Bl[t, X, yr, z , 2Bl1l[t, x, y, 2] f 4 
fo Bit Peh) [by Rp Vr Zl 
‘ 2Bl[t, X, y, z A 
D1(0r+/9) Tt, x, Ve Z] 
0, 7 ay 
2Bl1[t, x, y, z] 


ff Al (9,9, 1,0) t, X, VY, Z é C1 (1,9, 0,0) [t, x, y, Zz] 
2Cl[t, x, y, 2] eee 2Cl[t, xX, y, Z] 
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Bene) Hey sep i | 


6.5 Schwarzschild Solution 


CLE LEE Sep Ve 


{o, - 


Cy (1/0, 0,0) 


2Cl[t, xX, yr 2] 


v 0 , 
2Cl[t, x, y, 2] 


Zh ee ie Re Mee 2 


C, X, Vy 

BOUT, i ¥ee) °° BCLit, xv zl” 
C1(%r%10 Tk, x, y, z C191) Tt, x, y, Zz] } {o 

2Cl (ty evr Zi 2C1[t, x, yy 2] se 
p, GLO [ey ee ve 2] _ Dulrh [ty wy ys 2] 
(Sele kp ie Zl) EE el 

AL (9r%%1) Tt, x, y, z eh Dir?) ep see Ve | | 

PLE eek Oe eazy os 
o, BE erO Ler xr vr 21g DLO) [ty x yy 2 } 
f POLES Sy elr” SDL eee, 2), oe" 
5g ie, SE ee } 
ae Slit, ky. 2) ° BOL ayes) 
De ee ey Se Le ee ee 

2D1[t, x, y, 2] 2D1[t, X, Yr 2] ‘ 
DL eye 2) « ete [ety ya al bt} 

2D1[t, x, y, 2] 2D1[t, X, yr 2] 


Still, one equation of Einstein's vacuum field 


equations is complicated 


Einstein[1,1,g,ing] 


AL (%%O Dt, x, y, 2] 
4Al[t, x, y, z] D1[t, x, y, 2] 


Ay (010-0, 4) 


BLO th ee, Wee 


L t, X, VY, Z c 
4Bl[t, x, y, z] D1l[t, x, y, 2] 
Al (079,01) Cy Xp Ve Zz C1 (97 0, 0,1) [ty xX, vez] _ 
Ai Gl ty Ree Vo CZ] DELS. X4-Ve7-Z1 
Aq (070,01) Cy pV Z D1 (090-1) [t, X, y, z] 7 
4D1[t, x, y, 2]? 
2 
Aq (0700, 2) ty X, Yr Z] AL (0 0,1,9) [ty key eoz) 
2D1[t, x, yy, Zz] 4Al[t, x, y, z] Cl[t, x, y, 2] 
A1(%r%1-0) Te, x, y, 2] B1(%%%) Tt, x, y, Z] 7 
4Bl[t, x, y, z] Cl[t, x, y, 2] 
AL (001, 0) Cy Xp Veo Z C1 (Or 971, 0) [t, X, y, z] z 
AOL Ep Sy Ye eT: 
AL (0701, 0) t, X, Vy, Z D1 (0 94,0) [ty ty V2) : 
4Cl[t, x, y, z] D1l[t, x, y, 2] 


+ 
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2 
AI (Or 972,09) ty, Xr Vr Z) AL (Ort, 0,0) [t, X, vy, z] 
2Cl[t, x, y, Z] 4Al[t, x, y, z] B1[t, x, y, 2] 
Al (Or 4,0,0) t, X, Vy, Z BI (01,0, 0) [ty ¥eoVe oz] Bs 
4Bl[t, x, y, z]* 
A1 (1179/9) Te, xe, vy, 2 C1 (0110/0) [ty x, yr Z] . 
4Bl[t, x, y, z] Cl[t, x, y, z] 
AL (1/00) fe, x, y, 2] D1(%%% Tt, x, y, Z] , 
4Bl[t, x, y, z] D1l[t, x, y, 2] 
Al (9727070) t, X, Vy Z " 
2Bl1[t, x, y, 2] 
AL (2/90) re, x, y, z] B1(tr%% Tt, x, y, Z] : 
4Al[t, x, y, z] Bl[t, x, y, 2] 
2 
B1(1r%) Tt, x, y, z : 
AB [ey Sp yy 215 
Al (70,0, 0) ty Xp Ver Z Er (te070,0) [tg Re Veg oz i 
WAL [ty Spyz IOCL ey Rye iy e-sZ] 
2 
C1 (1,9,0,0) t, X, Vy Z . 
4Cl[t, x, y, z]” 
Al (4/0, 0,0) C5. Xp VaroZ D1 (470, 0,0) [ty Xs. Ve 2] ‘ 
4Al[t, x, y, z] D1l[t, x, y, 2] 
2 
D1 (4/9-0,0) Ep Xp Ne Z x B1 (2/9, 0,0) [t, X, y, z] _ 
4D1[t, x, y, z]” 2B1[t, x, y, Z] 
C1 (279,070) ty, Xr Vr Z) D1 (2/9, 0,0) [t, X, y, z] _ 
2Cl1l[t, x, y, 2] 2D1[t, x, y, 2] 
2 
1 Ay (0101 0/1) 
= Al[t, x, y, z] |- Ae Xx, Yr Z] 4 
2 QAL[t, Xe ye Zz)" Dl [ty XP yr 2] 
AL [te Ve BPE OP oe Ve 2] 
2Al1[t, x, y, z] Bl[t, x, y, z] D1l[t, x, y, 2] 
2 
Bq (9-9, 9,1) [t, x, y, z] 
2B [ty xP YZ 2D1 t, X, Yr, Z] 
Aq (9707071) [ty x y, Z] C1 (070, 0,1) [t, x, vy, Z] . 
ZAI [ty xX; Yr ZI-Cl [ty x, yr Zz) DUE, x, ve Z] 
B1 (090-1) [tp XV cz] C1 (0/9, 0,1) [ty Xp Vez] 
2Bl[t, x, y, z] Cl[t, x, y, z] Dl[t, x, y, z] 
2 
CLO OD [ty X Vr 2] 7 
2:61 (Ep. kip Ve eZ 2D1 GyoX eV Zz 
BLOB [Ee ey ys 2] DIO MO [ty xe ve 2) 
2Al1[t, x, y, z] D1[t, x, y, z]? 
BI (079, 0,1) [t, x, y, Zz] D1 (09,9, 1) [t, x, y, Zz] 
2B1[t, x, y, z] Dl[t, x, y, z]? 
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C1) Tes Vn 2 DI eas VecZ) 


6.5 Schwarzschild Solution 


PCL; so ¥, ZOU bey- eye 


eS 


Al (0197 0,2) Pipe Vi 2Zl és 
Al[t, x, y, z] Dl[t, x, y, 2] 
B1 (0,07 0,2) [ty Sy vez] 2 
Bl[t, x, y, z] Dl[t, x, y, z] 
C1 (0707072) [t, X¥, yr Z] 
Cl[t, x, y, z] D1l[t, x, y, 2] 
Al (0, 9-1, 0) t, X, VY, Z] 
ZAI, keV" Z ACL he, X, Yr, Z| * 
AL (Or 92,0) (tp Xe Vy Zl] BI (0071-0) [t, X, y, z] 
2Al1[t, x, y, z] Bl[t, x, y, z] Cl[t, x, y, z] 
B1 (97 01,0) [te SPV Z] 
2B [ey 7 Yr Z C1, xX, Yr, Z| 7 
Al (0, 0r1,0) [t, X, y, Z] C1 (979-1, 0) [t, X, y, z] 
2A1[t, x, y, z] Cl[t, x, y, z]’ 
Bl (0, 01,0) [ty Xs Vez] C1 (0,9, 1,0) [t, X, y, z] ” 
2B1[t, x, y, z] Cl[t, x, y, z]’ 
AL (Or 9,1, 0) tj Xp Vi Zz] D1 (9,0, 1,0) t, X, VY, 2] 
2Al1[t, x, y, z] Cl[t, x, y, z] D1l[t, x, y, z] 
B1 (0, 0,1,0) bps Ve 2) D1 (0, 9,1,0) Cepek Ve 2] 
2:Bil[t,; x;-y, Zz) Cl lt; x, yr z) D1 lt, x, vy, zZ] 
C1 (0, 9,1,0) fey ey ye Z] D1 (0 9,1,0) [ty Xp Vv, Zz] 
2C1[t, x, y, z]*D1[t, x, y, Zz] 
D1 (001-9) Cy VG z]° zs 
2C1l[t, x, ye Zz) DL, x, ye 217 
Al (0197 2,0) [ty Xe Viz] “: 
Al (ty. 3%) Vip ZIVEL [ty 3k; vy Z| 
B1 (97 0, 2,0) [pik pcVin Z| n 
Bl[t, x, y, z] Cl[t, x, y, z] 
D1 (0 97 2,0) [t, X, y, z] 
Cl[t, x, y, z] D1l[t, x, y, z] 7 
Aq (072/00) ty MV y z]° 
2Al[t, x, y, z]?Bl[t, x, y, z] | 
Al (07410, 0) [t, X, y, Z] BI (Or 4,070) Base eae ee | ie 


2Al1[t, xX, Vr Zz] B1[t, xX, Vr z)* 
AL [ee Reve Spel eg sep Vy | 


2Al1[t, x, y, 2] B1l[t, x, y, z] Cl[t, x, y, Zz] 
BI ORY ee Se Ve 2) CLO N ty See 2 


OBIE, ay vp oh Chief ee ye Zz] 
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CLM) [ty xy ve 2)” 


Se 
2Bli[t, x, y, 2] Cl[t, x, y, ZI * 


ey Se eB DLO fey By A a 


2Al[t, x, y, Z|] Bl[t, x, y, z] D1[t, x, y, 2] 
Bi) [ep ee Ve SDPO Ee (ee eee el 


ie 
BBL (tay 2) DLL, ep ee 


CL) Te ae BDL een ee ty yy | 


2Bl[t, x, y, z] Cl[t, x, y, z] D1[t, x, y, 2] 


2 
De ee ee ee ee 


2 
2B Ee, vy al Dilley &. vy 2° 


UR Gig Coe coo 4 ee 


Al[t, x, y, z] Bl[t, x, y, Z] 
Cre (ee xe Vee 


@ 
Bl[t, x, y, 2] Cl[t, x, y, 2] 


pe ete Ne 2 


Bl [t, X, Vr Zz] D1 [t, xX, Vr Z| 
Aa ene rres [ey sey ne | BL rer bey ee Z| 
PRI Kae .2) BLie, ee ye 2] 


Bre 


B1 (4% 9,9) LEP VG z]° 
2Al1[t, x, y, z] Bl[t, x, y, 2] 
AL (tr 9,0, 0) Pe ep ie Zz) C1 470,070) [t, X, VY, 2] 

2Al[t, x, y, 2]? Cl[t, x, y, Zz] 
Bl (4/9, 9,9) [ep ky Ynez C1 (4/9, 9,9) [tp Xo Yr Zl 


sf 
2 


2Al[t, x, y, z] Bl[t, x, y, z] Cl[t, x, y, 2] 


oat aes ce ee 
BALE, ee oy SCL ep ny yy-Z le 


RAO te Sep ge BN DT CE [eg een pe 
PAL (Pek, ve Zl? DL eye yee] 
Bere) Pept Ves ZV DU ee Lene ie Zl 


2Al1[t, x, y, z] B1l[t, x, y, z] D1[t, x, y, Zz] 
CT epee ee 2 DIL ey ee vee 


2Al[t, x, y, z] Cl[t, x, y, z] D1[t, x, y, 2] 


2 
D1 (1/9, 0,9) t, X&, vy, Zz] 


2Al[t, x, y, 2] D1I[t, x, y, Z] 


2: 
Bie a ee eve 2 
Al[t, x, y, z] Bl[t, x, y, Z] 


CPO ie ep See 
Al[t, x, y, z] Cl[t, x, y, 2] 


Dierere (ipa, Sa] 
Al[t, x, y, z] D1i[t, x, y, Zz] 


+ 
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6.5.3 Schwarzschild Metric in Kruskal Coordinates 


The Kruskal solution is the most general analytical extension of the 
Schwarzschild metric. Whereas the Eddington—Finkelstein solution is 
developed for the time region 0<t<oo or -oo<t<0O, the Kruskal 
solution is extended to both time regions. 


The Kruskal solution consists of the two angle variables @ and @¢, a 


spacelike variable x and a timelike variable t. 


IndepVar = {t,x,0,¢} 


{t, x, 6, do} 


The radial distance r is defined implicitly by the equation 


gid = 2 — x? == -(r(x, t) —2m) e3e 


pL pass (2m— r(x, 1) 


For later calculations, this equation is solved for t: 


seq = Last[Solve[gld /. r(x, t) > r, t]] 


{1 V2 +e%m (2m-1) 


The line element is given by the radial coordinate r: 
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e- tm (16 m2) (dt)? 
FP rare PSE 
r 


(16m?) e- te (dx 
r(x, 0) 


—r(x, t)? ((d0)? + (dy sin*(6)) 


r(x,t) 


aS 2 2 a a) 2 
16e@° 2" mr (dt) rox, 2 (dO? + (dy? sin2(9)) - loe m- (dx) 
r r(x, t) 


The metric is again in the shape of a diagonal matrix and its inverse 


g = metric [dsk, IndepVar] 


16 a m2 0 0 0 
r(x,t) 
16e. 2m m2 
0 a 0 0 
0 0 —r(x, t)” 0 
0 0 0 —r(x, t)? sin?(@) 


ing = Inversel[g] 


Sot 0 0 0 
0 -Sea 0 
1 
0 0 res 0 
0 0 0 _ csc2(4) 


r(x,t) 


To calculate the Christoffel symbols and the Einstein tensor, we compute 


the derivatives of r[x, t] up to second order following from equation gld. 
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sl= Flatten[Simplify [Solve [D[gld,x],D[r[x,t],x]]]]; 


s2 Flatten [Simplify [Solve [D[gld,t],D[r[x,t],t]]]]; 


s3 = 
Flatten [Simplify [Solve [D[gld,x,x] ,D[r[x,t],x,x]] 
/.s1 11; 


s4 = 
Flatten [Simplify [Solve [D[gld,t,t],D[r[x,t],t,t]] /. 
s2 ]]; 


sg = Flatten[{sl,s2,s3,s4}] 


r(x,t) r(x,t) 
4e°2 mx 4e° 2 mt 
oe 1) > ——_——._, PY’, 1) 3 -——__—— 
r(x, 0) r(x, 0) 


4e-“n m(-4mx? -2r(x, x2 +e Sm r(x, 1°) 


r(x, 


PO, 2) > 


? 


4e@7 
P(x, 1) > 


we m(4mP +27, 0° +e r(x, )’) | 
r(x, 1) 


With the list of sg rules, the Christoffel symbols and the Einstein tensor are 
calculated as follows: 
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Table[ Simplify[ Christoffel[i,j,k,g,ing] /. sg 
i abn lo ottale dbo hha sn yl 


e 2m t e@ 2m x 
Ee ’ 0, 0 a 
ul r[x, t r[x, t] } 
eg Set ort (2m+r[x, t]) 
; 3 ROO; 
r[x, t] rx, Ee] 
rt rt Sin[e]? 
0, 0, Am’ Oo}, {0, 0, 0, ae 
{ ¥ eae x eR t (2m+r[x, t]) 0 0} 
r v r[x, t]? v 2 v 
eet t (2m+r[x, t]) 
Tse € 2 : 
e- Ga+ x (2m+r[x, t}) 
= 2 , 0, o}, 
BX; iE] 


xr[x, t] xxr[x, t] Sin[e]? 
{0, 0, a 4m v Oo}, {0, 0, 0, 4m bbe 

4e ok mt 4 eon mx 
{{0, 0, eae Oo}, {0, 0, eee Oo}, 
{- 4 eR ue 4 eon 4 0, o}, 

Pix] r[x, t] 
: 4e te mt 

{0, 0, 0, -Cos[@] Sin[e]}}, {{0, 0, 0, ers ae 


_ x[x,t] 
4e 2m mx 


{07.0, 0, aa }, {0, 0, 0, Cot[e]}, 
4e- Lert] t 4e Lert] 
a ae eee 


To verify Einstein's field equations, we calculate, for example, the (1,1) 


coefficient of the Einstein tensor: 


esl = Simplify[ Einstein[1,1,g,ing] /. sg ] 


Bem m(-rP et rx, 1° +(x? +2e%" m) r(x, 0) 
rix, p° 
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With the aid of the defining equation for r, the above expression vanishes. 


esl = esl /. { r[x,t] > r} 


8 em m(-e™ P—P r+(x? +2e7 m)r) 


r 


Simplify[ PowerExpand[esl /. seq ] ] 


6.6 The Reissner—Nordstrom Solution for a 
Charged Mass Point 


The Reissner—Nordstrom solution is a spherically symmetric metric for a 
massive body with charge ¢. This type of solution allows the study of the 
coupling of Einstein's field equations with Maxwell's equations via the 
energy momentum tensor. Consequently, we have to solve the 
inhomogeneous field equations. Because of the spherical symmetry, we 
can use the Kruskal variables: 


Indepvar = {t,r,0,¢} 


{t, r, 8, } 


The same shape of the line element is also given: 


dsr = —((d'6)? + (d¢)* sin’(0)) r? — e* (dry + & (dt? 


(-(d6)? - (dy sin*(0)) 7 - 8 (dry? +e (dt? 


The metric tensor follows 
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g = metric[dsr, IndepVar] 


“eo 0 0 0 
0 -e& 0 0 
0 0 -r 0 
0 0 0 -P sin’(6) 


The related inverse metric tensor is 


ing = Inversel[g] 


evo 0 0 0 
0 -e*™ 0 0 
0 0 -+ 0 


0 0 0 _ csc2(6) 


re 


Since the Reissner—Nordstrom solution possesses spherical symmetry, the 
coordinates can be chosen so that the metric is static and vy and A depend 
only on the radial distance r. At the same time, the Reissner—Nordstrom 
solution satisfies Einstein's field equations and Maxwell's vacuum 
equations. Consequently, the Maxwell tensor F also depends on the 
distance r. Its form is determined by a purely radial electrostatic field. 


F= {{ Oo, - 
Ee[r] ,0,0},{Ee[r],0,0,0},{0,0,0,0},{0,0,0,0}} 
0 —-Ee(r) 0 0 
Ee(r) 0 0 0 
0 0 0 0 
0 0 0 0 


According to Maxwell's equations, the covariant divergence of the 
Maxwell tensor must vanish. The conditions deliver the substitution rule 


754 


6.6 ReissnerlNordstrom Solution 


eet AHO) 


sm = {Ee(r) > ————} 


eT A+) ¢ 


{Ee(r) Ee ——} 


and the Maxwell tensor 


oF AMM) 


0 -—z— 0 0 
et sa ‘ F 

0 0 

0 0 0 0 


with the corresponding covariant tensor. 


Fe = Simplify[ing . F . ing ] 


eT MOH) 5 


0 —z— 00 
x EEasanurr ; 

r 

0 0 

0 0 0 0 


The energy momentum tensor T is computed by 
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T= Simplify| 
4 4 1 
Table| De (- ing[[c, 4]] F[[a, cl] F[[b, 4]] + 


c=1d=1 


— gll[a, b]] F[[c, 4]] Fe[[c, ay}, 
16 7 


{a, 1, 4}, {b, 1, 4}]] 


= oO 0 0 
0 . 0 
0 a | 
0 0 o So 


It should be pointed out that the energy momentum tensor for a source-free 
electromagnetic field is traceless since the Maxwell tensor — a fully 
antisymmetric tensor — is traceless. According to this property of the 
energy momentum tensor, the Ricci scalar vanishes as well. Consequently, 


the field equations reduce to R = 82T, where R is the Ricci tensor. 


Simplify[Table[Riccila,b,g,ing] -8 x 
T[fla,b]],{a,1,4},{b,1,4}] ] 


Alr] <2 
{o, pay pete ae ee a (++ tx} -2v"(rj|, 
4 cae x 
OP Of, (0, 0, 
2 
eal ee cs emer Ue ais pee eve o}, 
2 r2 
1 Ax] os 2 
1 On Oy Oy (e Sin[6] 
2x2 


The solutions of these differential equations can easily be verified. With 
the coordinates 
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Indepvar = {t,r,0,¢} 


{t, r, 0, db} 


the line element is given by 


dsrn = 
dry fod 
—((d6)" + (dg) sin’ (6)) r? — eS + (S -—H+ | (dty 
2 24 ail r r 


(-(d6)" — (dg) sin’(6)) 7 


and the metric tensor 


metric [dsrn, IndepVar] ;g//MatrixForm 


g = 
52h a 0 0 0 
r2 
0 “Zone 0 
0 0 -p 0 
0 0 0 -P sin?(6) 


with the corresponding inverse 


ing = Simplify[ Inverse[g] ];ing//MatrixForm 


Fa, peers 0 0 0 
0 2S pam od 9 0 
r 
0 0 ase 
sc7(0) 
0 0 0-3 


The two parameters can be interpreted as the charge ¢ of the body and the 
geometric mass m. Of course, in reality, a body of considerable mass has 
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no net charge. Therefore, the Reissner—Nordstrom solution is only of 
hypothetical interest. However, the Reissner—Nordstrom solution can help 
in the study of the more complicated Kerr solution for a rotating black hole 


due to the similarity of its structure. 


The determinant for the Reissner—Nordstrom solution is the same as for 
the Schwarzschild solution. It is plotted in Figure 6.6.8. 


detg = Simplify[Det[g]] 


—r* sin?(@) 


fe} 


Figure 6.6.8. | The determinant | g | for the Reissner—Nordstrom solution. 


According to the metric of the Maxwell tensor, the energy momentum 


tensor reduces to 
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sme = {v[r] > - Alr] } 
{v7 > -AM} 
F = F /. sme 
Yee 
5 0 
0 0 00 
0 0 00 
Fe = Fc /.sme 
0 +00 
-5 0 0 
0 0 0 
0 000 
T = Simplify| 
4 4 1 
Table -— i , a)] F r F[[b, d 
DEy | py ingile, Al] FL la, el] FI[b, a] + 
c=1d=1 
1 
— glla, b]] F[[c¢, 4]] Fe[[e, da] ]], 
16 7 
{a, 2, 4), fb; 1, 4}|\| 
2 P—2mrse) 0 0 0 
0 ~~ 8a SORTED 0 0 
0 0 gz (COO 
& sin? 
0 0 0 =e 


We have so far calculated all quantities sufficient to verify the field 
equations in a modified form: 
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Simplify[Table[ Riccil[a,b,g,ing] - 8 x 
T[la,b]],{a,1,4},{b,1,4}1] 


000 0 
000 0 
000 0 
000 0 


The field equations in their original forms are verified as follows: 


Simplify[ Table[Einstein[a,b,g,ing] - 8 a 
T[[a,b]],{a,1,4},{b,1,4}1 ] 


000 0 
000 0 
000 0 
000 0 


As a consequence, the Ricci scalar obviously vanishes: 


Simplify [RicciScalar[g,ing] ] 


6.7 Exercises 


1. Extend the databases in the package PerihelionShift' to other 
planets and planetary systems. 


2. Find a representation of the perihelion shift using the classical 
parameters of an orbit. Compare your calculations to the approxima- 
tions given in literature. 


3. Change the package LightBending' in such a way that you are able 
to treat arbitrary masses in the calculations of light bending.Caution: 
Save the package before making changes in the program! 
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4. Create a three-dimensional representation of the relation for light 
bending (6.53) which considers changes in the mass and diameter of 
the star. 


5. The line element in a three-dimensional space in a particular coordi- 
nate system is 


ds’ = dx; +x dx; + x1 sin?(x) dx3. 


First, identify the coordinates and, second, examine the flatness of the 
metric. 


6. The Minkowski line element in Minkowski coordinates 
Xq = (Xo, X1, X2, X3) = (4, x, Y, 2) 

is given by 
ds’ = dt — dx — dy’ — dz. 

Is the metric flat? Determine the metric tensor. 


7. Find the nonzero components of the Christoffel symbols I}. of 
Bondi's radiating metric: 


ds* = (+ eh — Pe) dw +2¢?8 dudrt+ 
2U r-e27 dudé — Pr (e2” d& +e” sin’(6) dd’), 


where V, U, # and y are four arbitrary functions of the three coordi- 
nates u, r, and @. 


8. Verify that the Kerr form is a solution of the Einstein field equa- 
tions. The Kerr form is 


ds’ = dt -dx - dy’ — dz - 
2mr 
rage (dt + ape (det ydy)+ 
a Z 2 
Gaye (y dx — xdy) + = dz), 
where m and a are constants. 


9. Check that the Boyer—Lindquist form of Kerr's solution is a solution 
of Einstein's field equations 


ds’ = = (dt — a sin°(6) dd) m= 
- 2 2 
SE (7? +@)db-adty - © dr? - pdb, 


where rig =r +a’ cos*(6) and A =r -2mrta’. 
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6.8 Packages and Programs 


6.8.1 EulerLagrange Equations 


This section gives some support in calculating the Euler-Lagrange 


equations. First, the notation package is loaded. 


<< Utilities Notation™ 


Then, the path where you have located the package follows. Please change 
the path if you have stored the package in a different directory 


$EulerLagrangePath = 
S$AddOnsDirectory <> "/Applications/EulerLagrange/"; 
AppendTo[$Path, $EulerLagrangePath] ; 


The next line loads the package. 


<< EulerLagrange.m 


EulerLagrange™ 1.0 (Dos/Windows®) 

© 1992-2005 Dr. Gerd Baumann 

Runs with Mathematica® Version 3.0 or later 
Licensed to one machine only, copying prohibited 


Here, we define a symbolic notation for the function 


x_ 
Notation[6, [den_] — EulerLagrange[den_, u_, x_]] 
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activate the pallet. 


The following pallet allows you to generate the shorthand notation for the 
Euler-Lagrange operator. You can generate the pallet by selecting the 
following cell and use the File+Generate Pallet from Selection button to 


6. [01 


6.8.2 PerihelionShift 


This package calculates the perihelion shift for different planets. 
planets are collected in a database which can be extended by the user. 


The 


BeginPackage["PerihelionShift'"]; 


Clear[el, e2, e3, g2, g3, omegal, omega2, 
Orbit, orbit, Energy, AngularMomentum, 


PerihelionShift, Planets, DOOrbit, Schwarzschild]; 


Planets: :usage = "Planets[planet String] 
creates a list of data for planets and 

planetoids stored in the data base of the 
package PerihelionShift. The data 

base contains the names of the planets, 
their major axes, their eccentricity 

and the mass of the central planet. 
Planets['List'] creates a list of the 

planets in the data base. Planets['name'] 
delivers the data of the planet 

given in the argument."; 


orbit: :usage = 


"orbit[phiend ,minorAxes _,majorAxes ,mass_ |] 


creates a graphical representation of 
the perihelion shift if the major and 


minor axes and the mass are given."; 


Orbit: :usage = "Orbit[planet String] 
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creates a graphical representation of the 
perihelion shift for the planets 
contained in the data base."; 


PerihelionShift: :usage = 
"PerihelionShift[minorAxes ,majorAxes ,mass_ ] 
Calculates the numerical value 
of the perihelion shift."; 


AngularMomentum: :usage = 
"AngularMomentum[minorAxes ,majorAxes ,mass_] 
calculates the angular momentum of a planet."; 


Energy: :usage = "Energy[minorAxes _,majorAxes ,mass_] 
calculates the energy of a planet."; 


DOOrbit: :usage = "DOOrbit[planet String, 
phiend ,options ] plots the orbit 
in the case of vanishing determinants (see text) ."; 


Begin[" Private "]; 
(x---data bases of several planets---x) 


data = 
{{"Mercury", 0.579110%* (11), 0.2056, MassOfTheSun}, 

{"Venus", 1.082110* (11), 0.0068, MassOfTheSun}, 
{"Earth", 1.496710%* (11), 0.0167, MassOfTheSun}, 
{"Icarus", 1.6110%* (11), 0.827, MassOfTheSun}, 
{"Mars", 2.227910* (11), 0.093, MassO£fTheSun}, 
{"Ceres", 4.13610%* (11), 0.076, MassOfTheSun}, 
{"Jupiter", 7.7810%* (11), 0.048, MassOfTheSun}, 
{"Saturn", 14.2710%* (11), 0.056, MassOfTheSun}, 
{"Uranus", 28.7010* (11), 0.047, MassOfTheSun}, 
{"Neptune", 44.96 10% (11), 0.009, MassOfTheSun}, 
{"Pluto", 59.1010%* (11), 0.25, MassOfTheSun}, 
{"PSR1916", 7.0204020286 10% (8), 0.6171313, 

2.82837 MassOfTheSun}, {"TestPlanet", 

5.232710* (8), 0.6171313, 2828.37 MassOfTheSun} }; 


(*---information on the planets---+*) 
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Planets[planet String] := 
Block[{gh, kh, ma}, MassOfTheSun = 1.993 10* (30); 
If[planet = "List", 
Print [DisplayForm[GridBox[Prepend[ 
Map [Map [PaddedForm[#, {5, 3}] &, #] &, data], 
{StyleForm["planet", FontWeight > "Bold"], 
StyleForm["mean radius", 
FontWeight > "Bold"], StyleForm[ 
"eccentricity", FontWeight > "Bold"], 
StyleForm["mass", FontWeight > "Bold"]}], 
RowLines ~ True, ColumnLines ~> True, 


GridFrame > True, 


ColumnAlignments > {Left}]]], gh=0; 
kh = 0; 
ma = 0; 


data[[k, 1]]; 


Do[If[planet = data[[k, 1]], Planet 
gh = data[[k, 2]]; 
kh = N[data[[k, 2]] Sqrt[1-data[[k, 3]]]]; 
ma = data[[k, 4]]; 
Print [DisplayForm[ 

GridBox[{{data[[k, 1]], " "}, {"mass", ma}, 
{"minor axes", kh}, {"major axes", gh}, 
{"eccentricity", data[[k, 3]]}}, RowLines > 
True, ColumnLines > True, GridFrame > True, 

ColumnAlignments > {Left}]]], gh = gh; 
kh = kh; 
ma=maj], {k, 1, Length[data]}]; 
MajorAxes = gh; 
MinorAxes = kh; 


Mass = ma; 
If[gh # 0, PerihelionShift[kh, gh, ma], 0]]]; 


(*---Schwarzschild radius---x«) 


SchwarzSchild[mass ] := 
Block[{Gravitation, SpeedOfLight}, 
Gravitation = 6.6732 10% (-11); 
SpeedOfLight = 2.997925010%*8; 
2 Gravitation mass / SpeedOfLight~* 2]; 


(*---roots of the characteristic polynomial---*) 
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e2[minorAxes , majorAxes_, mass _] := 
Block[{Schwarzschild, eh}, 
Schwarzschild = SchwarzSchild[mass] ; 
eh = - (1 - 3 majorAxes Schwarzschild /minorAxes ~* 2 
(1 - Sqrt [majorAxes~* 2 -minorAxes*2] / 
majorAxes) ) /12]; 


e3[minorAxes , majorAxes_, mass _ ] := 
Block[{Schwarzschild, eh}, 
Schwarzschild = SchwarzSchild[mass] ; 
eh = - (1 - 3 majorAxes Schwarzschild /minorAxes ~ 2 
(1 + Sqrt [majorAxes* 2 -minorAxes*2] / 
majorAxes) ) /12]; 


el[minorAxes , majorAxes_, mass _ ] := 
Block[{}, -(e3[minorAxes, majorAxes, mass] + 
e2[minorAxes, majorAxes, mass] )]; 


(*---g2 and g3 of the Weierstrass function---*) 


g2[minorAxes , majorAxes , mass _ ] := 
Block[{}, 2 (el[minorAxes, majorAxes, mass] ~2 + 
e2[minorAxes, majorAxes, mass] ~2+ 
e3[minorAxes, majorAxes, mass] ~2)]; 


g3[minorAxes , majorAxes , mass _] := 
Block[{}, 4el[minorAxes, majorAxes, mass] * 

e2[minorAxes, majorAxes, mass] * 

e3 [minorAxes, majorAxes, mass] ]; 


(*---frequencies of the Weierstrass function---*x) 


omegal[minorAxes , majorAxes_, mass _] := 
Block[{integrand, x, oml, e11, e21, e31, module}, 
integrand = 4x3 -g2[minorAxes, majorAxes, mass] x - 
g3[minorAxes, majorAxes, mass] ; 

integrand = 1/ Sqrt[integrand] ; 

e1l1 = el[minorAxes, majorAxes, mass] ; 

e21 = e2[minorAxes, majorAxes, mass] ; 

e31 = e3 [minorAxes, majorAxes, mass] ; 

module = (e31-e21) / (e11-e21); 
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oml = EllipticK[module] / Sqrt[el11 - e21]]; 


omega2[minorAxes , majorAxes_, mass _] := 
Block[{integrand, x, om2, ell, 
e21, e31, module}, integrand = 
Abs[4x%*3 -g2[minorAxes, majorAxes, mass] x - 
g3[minorAxes, majorAxes, mass] ]; 
integrand = 1/Sqrt[integrand] ; 
e11 = el[minorAxes, majorAxes, mass] ; 
e21 = e2[minorAxes, majorAxes, mass] ; 
e31 = e3 [minorAxes, majorAxes, mass] ; 
module = (e31-e21) / (e11l-e21); 
module = 1 - module; 
om2 = I EllipticK[module] / Sqrt[el1l1 - e21]]; 


(*---creates the orbit 
from the orbit parameters---*) 


orbit[phiend , minorAxes_, majorAxes_, mass_, planet ] :+ 
Block[{Schwarzschild, bh, omega3, 12, 13, 14, 15, 
phi}, Schwarzschild = SchwarzSchild[mass] ; 
oml = omegal[minorAxes, majorAxes, mass] ; 
om2 


omega2[minorAxes, majorAxes, mass] ; 

omega3 = oml + om2; 

12 = g2[minorAxes, majorAxes, mass]; 

13 = g3[minorAxes, majorAxes, mass]; 

14 = Chop[WeierstrassP[phi - omega3, {12, 13}]]; 

15=1+1214; 

bh = Re[3 Schwarzschild/ 15]; 

ParametricPlot[{Cos[phi] bh, Sin[phi] bh}, {phi, 0, 

phiend}, PlotRange > All, AspectRatio > Automatic, 

Prolog > Thickness[0.001], PlotLabel > planet] ]; 


(*---creates the orbit with the data base---x) 


Orbit[planet String] :=Block[{}, Planets[planet] ; 
orbit[6 Pi, MinorAxes, MajorAxes, Mass, planet] ]; 


(*---numerical value of the perihelion shift---+x) 


PerihelionShift[minorAxes_ , majorAxes , mass _] := 
Block[{ph, ph1}, ph= 
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N[2 (omegal[minorAxes, majorAxes, mass] - Pi), 16]; 
phi = ph 2.0626480624510°5; 
irertiayes|p lt UN p 
Print[" Perihelion shift = ", phl, " arcs"]; 
ph]; 


(*---constants of motion---*) 


AngularMomentum[minorAxes _, majorAxes , mass _] := 
Block[{Schwarzschild, 11}, 
Schwarzschild = SchwarzSchild[mass] ; 
11 = g2[minorAxes, majorAxes, mass]; 
11 = Schwarzschild/ (2 (1/12-11))]; 


Energy[minorAxes , majorAxes_ , mass _] := 
Block[{Schwarzschild, energy, 12, 13}, 
Schwarzschild = SchwarzSchild[mass] ; 
12 = g2[minorAxes, majorAxes, mass]; 
13 = g3[minorAxes, majorAxes, mass]; 
energy = -2 Sqrt[(1/54-12/6-13) /(1/12-12)]/ 
SpeedOfLight] ; 


(*---asymptitic orbits---x«) 


DOOrbit[planet String, phiend , options] :=Block[ 
{Schwarzschild, e0, n2, phi}, Planets[planet] ; 
Schwarzschild = SchwarzSchild[Mass] ; 
e0 = 1/24 - Schwarzschild/ (4 MajorAxes) ; 
n2 = 3 e0; 
bhi = 4 / Schwarzschild 

(1/12+n2/3-n2/Cosh[Sqrt[n2] phi] *2); 
bhi = 1/bhi1; 
ParametricPlot[{Cos[phi] bh1, Sin[phi] bh1}, 
{phi, -phiend, phiend}, options] ]; 
End[]; 
EndPackage[] ; 


6.8.3 LightBending 
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This package determines the bending of a light beam in a gravitational 
field. 


BeginPackage ["LightBending™ "] ; 


Remove[el, e2, e3, g2, g3, omegal, omega2, Orbit, 
Deviation] ; 


Deviation::usage = "Deviation[radius ,mass_ ] 
calculates the numerical value 

of the light bending in a gravitational field of a 
planet with mass M ina 

distance radius of the center."; 


Orbit::usage = "Orbit[radius ,mass_] plots the orbit 
of a light beam near 

a mass in the distance radius. The calculation is 
done in Schwarzschild 

metric."; 


MassOfTheSun: :usage; 
RadiusOfTheSun: :usage; 


Begin["" Private’ "]; 
(* --- mass and radius of the sun --- *) 


MassOfTheSun = 1.993 10%*(30); 
RadiusOfTheSun = 7 10°8; 


(* --- Schwarzschild radius --- *) 


SchwarzSchild[mass _ ]:= 
Block [{Gravitation, SpeedOfLight}, 
Gravitation = 6.6732 10*(-11); 
SpeedOfLight = 2.9979250 10*8; 
Schwarzschild = 2 Gravitation 
mass/SpeedOfLight~2 
lie 


(* --- roots of the characteristic polynomial --- *) 
el[radius_,mass _ ]:= 


Block [{eh,e31}, 
e21 = e2[radius,mass] ; 
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eh = N[-1/2 e21 + Sqrt[3] Sqrt[1-36 
e21°2]/12]]; 


e2 [radius _,mass_ ]:= 
Block [{Schwarzschild, eh}, 
Schwarzschild = SchwarzSchild [mass] ; 
eh = -1/12 (1 - 3 Schwarzschild/radius) 


e3 [radius _,mass_]:= 
Block [{eh}, 
eh = N[-(e2[radius,mass] + el[radius,mass])]]; 


(* --- frequencies of the Weierstrass function --- *) 


omegal[radius ,mass_ ]:= 
Block [{om1,e11,e21,e31,modulus}, 
ell el [radius,mass] ; 
e21 = e2[radius,mass] ; 
e31 = e3[radius,mass] ; 
modulus = (e21-e31) /(e11-e31) ; 
om1l = EllipticK [modulus] /Sqrt [e11-e31] 


omega2 [radius _,mass_]:= 
Block [{om2,e11,e21,e31,modulus}, 
e11 el [radius,mass] ; 
e21 e2 [radius,mass] ; 
e31 = e3 [radius,mass] ; 
modulus = (e21-e31)/(e11-e31) ; 
modulus = 1 - modulus; 
om2 = I ElliptickK [modulus] /Sqrt [e11-e31] 


(* --- g2 and g3 of the Weierstrass function --- *) 
g2[radius ,mass ]:=Block[{},N[1/12]]; 
g3 [radius ,mass ]:=Block[{}, 
4 el[radius,mass] e2[radius,mass] 
e3 [radius,mass] ]; 
(* --- creates the path of the light beam --- *) 


Orbit [radius _,mass ]:= 


Block [{Schwarzschild,bh,12,13,14,15,phi,phia, deltaphi 


, 
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erg,omega3}, 

Schwarzschild = SchwarzSchild [mass] ; 

om1 omegal [radius,mass] ; 

om2 omega2 [radius,mass] ; 

omega3 = oml + om2; 

12 = g2[radius,mass] ; 

13 = g3[radius,mass] ; 

14 = WeierstrassP [phi-omega3, {12,13}]+1/12; 

erg = FindRoot [14==0,{phi,Pi/2}]; 

phia = phi /. erg; 

phia = Re[phial] ; 

14 = Re[WeierstrassP [phi-omega3, {12,13}1]; 

dbp et. a ee ales ales 

bh = 3 Schwarzschild/15; 

ParametricPlot[{Cos[phi] bh,Sin[phi] bh}, 
{phi,-phia 0.9,phia 0.9}, 
Prolog->Thickness [0.001] , Ticks->False] 


(* --- determination of the deviation angle --- *) 
Deviation[radius ,mass_]:= 


Block [{Schwarzschild,om1,om2,omega3,12,13,14,phi, 
deltaphi,dphi,phia,erg}, 
Schwarzschild = SchwarzSchild[mass] ; 
oml = omegal [radius,mass] ; 
om2 = omega2 [radius,mass] ; 
omega3 = oml+om2; 
12 = g2[radius,mass] ; 


13 = g3[radius,mass] ; 
14 = WeierstrassP [phi-omega3,{12,13}]+1/12; 
erg = 


FindRoot [14==0, {phi, Pi/2},AccuracyGoal\ [Rule] 34,Worki 
ngPrecision\ [Rule] 34, 
MaxIterations\ [Rule] 50]; 

phia = phi /. erg; 

phia = Re[phia]; 

deltaphi = N[2 phia-Pi,16]; 
(* --- the factor 2.06264806245 10°5 converts radian 
to arcsecond --- *) 
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End[]; 


EndPackage [] ; 
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dphi = deltaphi 2.06264806245 10°5; 
Print[" "]; 
Print[" Deviation = ",dphi," arcs"]; 


deltaphi] ; 


7 
Fractals 


7.1 Introduction 


Fractals are, today, a basic tool to phenomenologically describe natural 
objects. The properties of these objects can be the length of a border, the 
relaxation time spectrum of a process, the geometric structure of trees, the 
circumference of cells and so forth. All of the measures derived from such 
objects are related to the choice of the scale length with which the object is 
examined. Fractals are also a tool to describe natural objects such as 
biological and medical objects. Fractals are geometric as well as temporal 
objects having a long-lasting history such as the monster curves in 
mathematics. Fractals are not only restricted to geometric objects but also 
have its appearance in time-dependent processes and differential objects. 
The observation by Mandelbrot [7.4] of the existence of a "Geometry of 
Nature" has led us to think in a new way about natural objects. 


The coastline of Norway, a snowflake in Bavaria, the Mississippi River all 
of these share a common characteristic that is very common in nature. 


They all have a certain amount of geometric complexity. The boundary of 
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the snowflake is difficult to define in geometric terms. The same holds for 
the other objects. Indeed, the snowflake must have a very long perimeter, 
but it is a very small geometric structure. The mentioned natural examples 
provide, with a little reflection, a crisis of definition. If we define a 
geometric measure as the determination of a quantifiable measure of these 
examples such as length or area, then the geometric measures of physical 
characteristics are hard to establish. In fact, the measure could only be 
approached on an operational level; that is if one wants to measure the 
length of the perimeter of a snowflake, one would have to know by what 
means to measure it. Felix Hausdorff (see Figure 7.1.1) was one of the few 
mathematicians who thought about these problems in the 20th century. At 
the age of 50, Hausdorff was a well-respected mathematician and well 
known as a set theoretician. In 1918, Hausdorff published an important 
paper contributing to measure theory. This 22-page article published by 
Mathematische Annalen gave a new treatment of Lebesgue measure. He 
contributed a large amount of knowledge with his own words "Hierzu 
geben wir im folgenden einen kleinen Beitrag". This "little contribution" is 
his entire theory of measure and of fractional dimension, presented in a 
clear and general form. This article is a gem. Few people have read it, yet 
it has brought its author more fame, today, than all the rest of his works put 
together. The principal application of his theory concerns a family U/ of 
bounded sets associated with a weight f(U), where U are the countable 
sets; thus f(U) is a function of the diameter p(U)=A(p(U)), with 
A(x) = x*. This functional relation is the point at which Hausdorff defines 
his fractional dimension. 


Figure 7.1.1. | Felx Hausdorff: born November 8, 1868; died Junuary 26, 1942. 
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About 60 years after Hausdorff's paper, Benoit Mandelbrot (see Figure 
7.1.2) coined the term fractal in his "Geometry of Nature". Mandelbrot 
examined a large number of natural, artificial, and geometric objects. He 
also introduced numerical experiments to demonstrate the fractal beauty of 
mappings. The famous Mandelbrot set is one example demonstrating the 
fractal nature by an iterated map. Benoit Mandelbrot is the founding father 
of the fractal community incorporating fields from physics, biology, 
chemistry, material science, architecture, and so forth. The application of 


fractal concepts in today's science is omnipresent in all disciplines. 


Figure 7.1.2. | Benoit Mandelbrot: born November 20, 1924. 


This chapter introduces the fractal concept for geometric objects. It 
discusses the experimental determination of fractal dimensions for 
geometric structures. In Section 7.4 a monofractal is generalized to the 
notion of multifractals. The renormalization group theory in Section 7.5 
makes a link between renormalization and fractality. Section 7.6 


introduces a generalization of derivatives to fractional derivatives. 
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7.2 Measuring a Borderline 


A natural borderline separating two objects can be a complicated curve. 
When looking at a distant object governed by a geometrical structure, a 
skyscraper, for example, we get the impression that its borderlines are 
straight lines. Looking through binoculars, we observe that there are 
wrinkles and loops in its borderline, and a closer look reveals that the 
object has an even more complicated shape. Following this reasoning, we 
may wonder whether natural objects can be described fully by Euclidean 
geometry. In fact, nowhere in nature will we observe the idealized straight 
line. Nature itself uses straight lines connecting two different points only 
as an approximation and on small scales. Objects in our natural 
environment have different geometrical structures at different scales of 
magnification. 


Let us consider a tree as an object of our study. If we are far away from the 
tree, we can imagine that the picture we see is similar to a point or a short 
line on the horizon. If we get closer to the tree, the appearance changes. 
First, we see the extension in a plane, and coming closer, we see the spatial 
arrangements of its branches. Up close enough, we recognize small 
branches and leaves. The building blocks of a tree are not geometrical 
objects like cylinders, balls, cones, and the like. The branches of a tree 
exhibit self-similarity: After scaling of a branch, a subbranch forms from 
which another subbranch can be scaled, and so on. This type of 
self-similar scaling law was discovered by Leonardo da Vinci, who 
experimented with this subject back in the 16th century [7.4]. In 
modern-day mathematics Benoit Mandelbrot has introduced the term 


fractals to describe such scaling laws of self-similarity. 


When studying complicated natural objects, we simplify the problem by 
considering the three-dimensional object in a projection plane. In the case 
of the tree, we study the shadow of the tree in order to reduce the problem. 
The picture of the shadow is easily created with Mathematica following 
Gray and Glynn [7.1] (see Figure 7.2.3). To construct the tree, simple 
building blocks are put together in a self-similar way. The package Tree” 


contains all the necessary functions to create branches, branchLine[], to 
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rotate lines, rotateLine[], and to scale branches, BranchScaling. A listing 
of the package is given in the section packages of this Chapter 7. A typical 
application of the main function is given below. Here, we generate a tree 
consisting of 10 branch generations and a natural coloring of the branches. 


Tree[Generation—> 10, BranchColor > 11]; 


Figure 7.2.3. Fractal tree. 


The result is a tree that you will observe in a similar shape in spring or 


autumn. 


One of the characteristic properties of a projected tree is the length of its 
boundary line. If we choose a fixed yardstick length for determining the 
length of the boundary line, we get its total length by the number of 
yardsticks multiplied by the length of the yardstick. The mathematical 
formula is L= N(é) €, where L is the resulting length, ¢ is the length of the 
yardstick, and N(e) is the number of yardsticks used to cover the boundary. 


In a second experiment, we change the length of the yardstick ¢. We again 
count a number M(e) and calculate the length L by the same formula as 
above. The first observation we make is that the calculated length L has a 
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different value compared to the first measurement. For example, if we 
choose the yardstick length measuring our tree to be the vertical height of 
the tree, we get a different length compared to measuring the tree with a 
small yardstick of about | cm. The first measurement of the boundary line 
is a very crude estimation of its actual length. The accuracy of the 
measurement increases with the decrease in length of the yardstick used. 
Not only does the accuracy of the measurement increase, but the numerical 
value of the total length L increases as well. The method of measuring the 
length of the boundary line by means of a yardstick is called the yardstick 
method. 


Another method for determining the length of a boundary line is the box 
counting method. In this method, the object is superimposed on a lattice 
with mesh size ¢. If we count the squares which contain a part of the 
boundary and multiply the number of boxes N(e) by mesh size €, we get 
an approximated length of the boundary line. Again, we observe that with 
decreasing mesh size €, the accuracy of the measurement and the total 
length ZL increases. The number of boxes counted in the box counting 
method is nearly of the same order as the number of yardsticks in the 
yardstick method. 


If the length Z increases while the yardstick ¢ decreases, the question 
arises of whether there exists a finite length of the boundary of the tree. If 
the length of the boundary is finite, we expect that the number of 
yardsticks N(€) must increase proportionally to 1 /¢é (.e., N(¢é) = Ly /e). In 
other words, if the length of the boundary is L = N(e) € = Ly, where Ly is 
a constant for any €-0, we can say that the length is constant. If we apply 
this mind game to a natural object and count the number of boxes, we 
observe a completely different behavior. 


The measurement of natural objects like blood cells or the bronchial tree 
using the yardstick or box counting method shows a different relationship 
between the yardstick length and the number N(e). The actual relation 
observed in experiments ([7.2, 7.3]) is N(e) = ae~?, where D is a number 
greater than 1 for plane objects. If we insert the experimentally observed 


relation for the number of yardsticks into the length relation L = Ne, we get 


L(s) = N(ee=ae!?. (7.2.1) 
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This relation applies to any boundary line. For an Euclidean curve which is 
smooth and differentiable at any point, we expect that parameter a 
represents the finite length Ly and that dimension D equals | as e>0. For 
natural objects, the dimension D is not equal to 1. The property that the 
dimension of a natural object is different from its topological dimension 
was used by Mandelbrot to define the term "fractal" [7.4]. The 
experimental determination of dimension D follows from the slope of a 
log-log plot in which the length of the curve is plotted versus the length of 
the yardstick. The slope of the plot is equal to 1 — D. In fractal theory, the 
quantity 


2 log(L(e)) _ _log(a) 
Dod eo en (7.2.2) 


is called the fractal dimension. This parameter characterizes the plane 


filling of the curve. The tree example used earlier in this chapter is 
illustrative for our purposes but too complicated to determine the fractal 
dimension by analytical methods. Another example of a fractal object is 
the curve as defined by Koch, who at the turn of the century introduced the 
mathematical monster known as the Koch snowflake. At the same time, 
other mathematicians, including Cantor, Peano, and Weierstrass, discussed 
sets of points and curves with very strange properties. An example of the 
type of curve is given in Figure 7.2.4, which shows the Koch snowflake. 
Using the Koch curve, we can show how the fractal dimension of such a 
curve (which is nowhere differentiable) is determined and how 
self-similarity occurs. First, we will describe the box counting method used 
to determine the fractal dimension. After this experimental approach, we 
will return to the more analytic approach for fractal curves. 
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Figure 7.2.4. Koch's snowflake. 
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7.2.1 Box Counting 


As mentioned earlier, the determination of a contour length can be carried 
out in different ways. One method to determine the total length of a 
contour is the application of the yardstick method to gain an 
approximation of the length. Another method which will be elaborated 
here in more detail is the box counting method. The box counting method 
gained its name from the counting of disjunct boxes or squares in the 
plane. The squares or boxes can be replaced by other geometric objects 
like spheres, ellipsoids, cylinders, and so forth. The explicit form of the 
used basic measuring element is of minor importance in the estimation of 
the length of a contour. Here, we use the box counting method to 
demonstrate its application to plain objects. We apply the box counting 
algorithm in its simplest form to show how the method works and how we 


can improve the basic procedure to refine the results. 


Box counting is one of the most widely used methods to determine the 
fractal dimension. Its popularity is largely due to its relative ease of 
mathematical calculation and empirical estimation. The definition goes 
back at least to the 1930s and it has been variously termed Kolmogorov 
entropy, entropy dimension, capacity dimension, metric dimension, 
logarithmic density, and information dimension. We will always refer to 


box or box counting dimension to avoid confusion. 


Let S be a nonempty bounded subset of IR and let N(e) be the number of 
sets of diameter at most € which can cover S. We refer to the value as the 
box counting dimension or box dimension of S as 


D = lim (284) ). 


230 \ log(l/e) (7.2.3) 


This version of the definition is widely used empirically. To find the box 
dimension of the set S, we can draw a mesh of squares of side ¢ and count 
the number N(¢) that overlap the set for various small ¢. The dimension is 
the logarithmic rate at which M(s) increases as ¢>0 and can be estimated 
by the gradient of the graph of log(V(¢)) against log(1 /€). 
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The box counting method is based on the division of a plane into squares 
of edge length ¢. The box counting method delivers an estimate of the 
length of a contour by counting the number of boxes N(¢) of a given size. 
Each box containing at least one point is counted in M(e). Starting with the 
largest € scale (the maximal extension of the object) the grid length ¢ is 
decreased successively. In a log-log plot of N(e) versus «, a scaling range 
for self-similar structures is obtained. 


To demonstrate how this mathematical definitions works in practice, we 
will examine each step of the box counting method starting with the 
generation of an object, the generation of the squares for different e's, the 
counting of the relevant boxes, and the determination of the scaling 
exponent. 


First, we start with the generation of the object which we will examine. 
Suppose we have to measure the contour length of a human cell. The 
planar projection of a human cell is mainly described by a disturbed circle. 
We assume that the radial coordinate of a circle of radius | is increased by 
random numbers in the range (0, 0.2) for the x coordinate and (0, 0.1) for 
the y coordinate. The sequence of points is generated by the following 
table: 


points = Table[{Sin[i] + Random[Real,{0,.2}], 
Cos[i] + Random[Real,{0,.1}]} 
//N,{i,0,2Pi, .05}]; 


To generate a contour line from these points, we will link each neighboring 
points by straight lines. This is carried out by the following function 
generating the contour. 


Contour [points ] :=Module[{contour}, 
contour = {}; 
Do[ 
AppendTo [contour, Line[{points[[i]],points[[i+1]]}] 
], 
{i,1,Length [points] -1}]; 
AppendTo [contour, Line [{Last [points] , First [points] }]]; 
contour 


] 
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The actual contour is then generated by applying this function to the set of 
points: 


cl = Contour [points] ; 


A graphical representation of the artificial cell is given next: 


pll = Show[Graphics [Polygon[points]], 
AspectRatio->Automatic] ; 


In the next step, we need to generate the grids allowing us to count the 
occupied squares by the contour. The following function generates a 


square of total side length Jax divided into subsquares of length e. 
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Clear [Grid] 

Grid[lmax_,eps_] :=Module[{11={}}, 

AppendTo [11, Table [Line [{{-lmax,y},{1lmax,y}}], 
{y,-1max,lmax,2 lmax/eps}]]; 

AppendTo [11, Table [Line [{{x,-1lmax},{x,lmax}}], 


{x,-1max,lmax,2 lmax/eps}]]; 
ala 


] 


Using this function, we can generate an animation showing the principal 
situation for the measurement process by decreasing the length e: 


Do [Show[p11,Graphics [Grid[1.2,eps]],AspectRatio->Auto 
matic, 


PlotRange->All1], 
{eps,2,75,5}] 


The next step in the determination of the box dimension is to count all 


squares occupied by the contour line of the cell. For this step, we have to 
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check whether the contour line intersects with a specific square or the 
square is empty. The following function scans over the total square and 


counts the occupied squares: 


Clear [PointSearchG] ; 
PointSearchG[lmax_,eps_,points ] :=Module[{ 
deltaeps,xgmin,xgmax, ygmin, ygmax, occupied, presentPoly 


}, 


deltaeps = 2 lmax/eps; 


xgmin = -lmax; 

xgmax = xgmin + deltaeps; 
ygmin = -lmax; 

ygmax = ygmin + deltaeps; 
occupied = {}; 

Do[ 

Do[ 
Do[ 


If[xgmin <= points[[i,1]] < xgmax && 
ygmin <= points[[i,2]] < ygmax, 
AppendTo [occupied, {RGBColor[1,1,0], 
Polygon [{{xgmin, ygmin}, {xgmax,ygmin}, 

{xgmax, ygmax}, {xgmin, ygmax}, 
{xgmin,ygmin}}]} ] 

1, 

{i,1,Length [points] }]; 
presentPoly = {RGBColor[1,0,0], 
Polygon [{{xgmin,ygmin}, {xgmax,ygmin}, 

{xgmax, ygmax}, {xgmin, ygmax}, 
{xgmin, ygmin}}]}; 

Show [Graphics [Grid[1.5,eps]], 

Graphics [presentPoly], 

Graphics [occupied], 

Graphics [cl] ,AspectRatio->Automatic] ; 

xgmin xgmin + deltaeps; 

xgmax = xgmin + deltaeps, 

{jx,1,eps}1; 

xgmin = -lmax; 

xgmax = xgmin + deltaeps; 

ygmin = ygmin + deltaeps; 

ygmax = ygmin + deltaeps, 

{jy,l,e s}l; 

] 
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The application of this function to the cell contour demonstrates the 
detection and counting of occupied squares 


PointSearchG[1.5,10,points] 


Z 
=RES 


The numeric counterpart to this graphical representation is realized in the 


following function. This function counts the occupied squares and collects 
those squares containing a point of the contour in a list. This list is used to 
determine the total number of squares for a certain box length «. 
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Clear [PointSearch] ; 
PointSearch[lmax _,eps_,points ]:=Module[{ 
deltaeps,xgmin,xgmax,ygmin, ygmax,occupied}, 


deltaeps = 2 lmax/eps; 


xgmin = -lmax; 
xgmax = xgmin + deltaeps; 
ygmin = -lmax; 
ygmax = ygmin + deltaeps; 
occupied = {}; 
(* --- detect the occupied squares --- *) 
Do[ 
Do[ 
Do[ 
If[xgmin <= points[[i,1]] < xgmax && 
ygmin <= points[[i,2]] < ygmax, 
AppendTo [occupied, {RGBColor[1,1,0], 
Polygon [{{xgmin,ygmin}, {xgmax,ygmin}, 
{xgmax, ygmax}, {xgmin, ygmax}, 
{xgmin, ygmin}}]} 1]; 
Return [] 
1, 
{i,1,Length[points] }]; 
xgmin = xgmin + deltaeps; 


xgmax = xgmin + deltaeps, 
{jx,1,eps}]; 
xgmin = -lmax; 


xgmax = xgmin + deltaeps; 

ygmin = ygmin + deltaeps; 

ygmax = ygmin + deltaeps, 

{jy,1,eps}] i 

AppendTo [data, {deltaeps, Length [occupied] }] ; 
occupied 

] 


To count the squares for decreasing €, we iterate this function in a certain 
range of ¢. In addition, we graphically represent the measuring process and 


the data gained in a sequence of figures. 
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Show [ 

GraphicsArray [{Graphics[{Grid[1.5,n], 
PointSearch[1.5,n,points], 
c1},AspectRatio->Automatic], 

LogLogListPlot [AppendTo [dat,data[[j]]]l, 
PlotStyle->{PointSize[0.02],RGBColor[1,0,0]}, 
PlotRange->{{0.05,1},{6,130}}, 
AxesLabel->{"e","N(e)"}, 

DisplayFunction->Identity] }], 

AspectRatio->Automatic, DisplayFunction->$DisplayFunct 

ion]; 

3) = 3) oo aly 

{n,3,25,5}] 


N(e) 


00.050.0.6.71° 


The result shows that the number of occupied squares increases if € is 
decreased. Two remarks of caution are appropriate here. Since the 
representation of the cell contour is given by a relatively small number of 
points, the accuracy of the gained results are not very high. Second, to 
increase the reliability of the estimation, the origin of the grid should be 
changed. From the different measurements, a mean value of the occupied 
squares can be determined and used in the estimation of the scaling 
exponent. To estimate the scaling exponent for the present artificial cell 
contour, we can fit the data to a straight line in a log-log representation of 
the data. 


7. Fractals 789 


fl = Fit[Log[dat] ,{1,x},x] 


2.08955-1.0062x 


The result shows that a small deviation from a straight line occurs. The 
scaling law of the artificial cell is shown in the following: 


Show [Plot [£1,{x,-3,.5},DisplayFunction->Identity] ,Lis 
tPlot [Log[dat], 


PlotStyle->{PointSize[0.02] ,RGBColor[1,0,0]}, 

DisplayFunction->Identity], 
DisplayFunction->$DisplayFunction,AxesLabel->{"log(1/ 
€)","log(N(e))"}1; 


log(N(e)) 
5 
4.5 
4 
a5 
3 
ite) 


log(1 
-3 -25 -2 -15 -1 -0§, ag 


It is obvious that the gained data can be represented as a straight line in a 
log-log plot. However, we observe that a scattering of the data points 
around the line occurs. This chitter has two main causes. First, the small 
number of data points used in the representation of the cell contour results 
in fluctuations of the number of occupied squares. Second, there are two 
limits of the scaling region for small and large values of ¢, where a major 
deviation from the straight line occurs. In the range of large € we have a 
cutoff at the diameter of the cell where the scaling relation fails. For very 
small ¢, we reach a region where the discrete representation of the contour 
cannot be resolved by the box length due to lack of points. Thus, only in 
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the middle where the box length and the number of points of the contour 
are commensurable, the scaling behavior is observed. The lower and upper 
limits in € are thus determined by the extension of the object itself and the 
resolution of the contour discretization. The experimental determination of 
fractal dimensions by means of the box counting method should only be 
trusted if a range of two or three decades in the box length is spanned. 


7.3 The Koch Curve 


We have been discussing self-similarity, especially of self-similar curves, 
but have not explained what is meant by a self-similar object. An example 
of a self-similar object from geometry is the congruent triangle. Everybody 


2 = a’ +b’, is satisfied for a right 


knows that the theorem by Pythagoras, c 
triangle. In this formula, c denotes the hypotenuse and a and b represent 
the legs of a right triangle (see Figure 7.3.5). The proof of the Pythagorean 


theorem is given by the self-similar properties of the triangle. 


The area of a right triangle is determined by the length of the hypotenuse 
and the smaller of the two angles between the hypotenuse and its legs ¢ 
(i.e., F = f(c, d)). Since F has the dimension of area and c has the 
dimension of length, we can write F = c*®(¢). Drawing the normal line of 
the hypotenuse through the right angle, we divide the total triangle into 
two self-similar triangles (see Figure 7.3.5). The areas of the self-similar 
triangles are F\= a’®(¢) and F= b?®(¢), where ®(@) is the same function 
for both (similar) triangles. The sum of the areas F; and F? is the total area 
F of the triangle: 
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Cc 


Figure 7.3.5.  Self-similarity on a rectangular triangle. 


FHF, 4F, (7.3.4) 
c? O(¢) = a O(¢) + L° (). (73:5) 


Cancellation of the mutual function yields 
C=a0+h (7.3.6) 
QED. 


This sort of self-similarity is known as congruence in geometry. If we 
apply this construction again to divide the right triangle for each triangle 
and repeat the procedure ad infinitum, we get a sequence of triangles 
which are scaled versions of the original triangle. At each level of division, 
we find the same triangles, but scaled by a different factor. This behavior 
of repetition and scaling was used by Helge von Koch to construct the 


Koch curve. 


The initial element of the Koch curve is a straight line of length Ly=1. The 
first step in constructing the Koch curve is a scaling of the total length by a 
factor r = 1/3. In the second step, four elements are arranged as shown in 
Figure 7.3.6. From this figure, we see that the curve loses its 
differentiability at the connection points of the four lines. These two 
fundamental steps can be infinitely applied to each of the line elements. In 
a kth iteration step, we get a total scaling factor of ™ = (1/ 3). The 
number of line elements increases up to N; = 4". The first three steps of 
this construction are shown in Figures 7.3.6-7.3.8. If we measure the 
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length of the Koch curve by a yardstick of the same length as the scaling 
factor € = r, we find the equation from the length relation L(¢) = N(é) €, 


_ _logt) 
~ log(1/e) 


and one obtains D = log(4)/log(3) = 1.218 .... for the Koch curve. Thus, 
the fractal dimension for a self-similar curve follows from the number of 


(7.3.7) 


building blocks N of the generator and the scaling factor r, which is used 
as the yardstick length. The geometrical structure of the line elements is 
not contained in the fractal dimension because the fractal dimension is not 
a unique property of a curve. Thus, we get the same fractal dimension for 
curves with completely different appearances (compare Figures 7.3.8 and 
7.3.9). 


The Koch curves of the Figures 7.3.6-7.6.9 are constructed in 
Mathematica with the function Line[]. We define the generator of the 
Koch curve in the Koch[] function, which is part of the Koch’ package, 
and use the Mathematica function Map[] to generate the higher iterations 
of the generator (see Section 7.8.2). By keeping the generator and the 
iteration separate in the creation process of the fractal curve, we are able to 
mix two or more generators into the iteration process. In Figure 7.3.10 the 
Koch generator is mixed with a rectangular representation. The first two 
iterations are done with the original Koch generator. The next two 
iterations use the rectangular Koch generator. Separating the iteration 
process from the definition of the fundamental generators allows any 
mixing of generators in any state of the iteration. In package Koch’, we 
define a number of generators of fractal curves. Their combinations are 
accessed by the function Fractal[]. This function uses a string containing 
one of the possible fractals as the first argument. The second argument of 
the function changes the default values of the generators. 


Another form of the Koch curve is obtained if we change the base angle a 
of the triangle in the generator. If we again use four line elements to set up 
the generator and alter the scaling factor to r= 1/(2 +2 cosa), we find a 
fractal dimension of 


log 4 


= log 2+log(1+cos a) ° (7.3.8) 


A representation of the dimension D versus the angle a is given in Figure 
7.3.11. In the case of a =0, the dimension is reduced to D=1 and for 
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a@=a7/2, the maximum dimension D=2 occurs. For D=2, we have a 
plane filling curve. For the specific value a = 1.4, the sixth iteration of the 
Koch curve with a variable base angle is given in Figure 7.3.12. 


Figure 7.3.6. First iteration of the Koch curve. 


Figure 7.3.7. Second iteration of the Koch curve. 


ab by 


Figure 7.3.8. Third iteration of the Koch curve. 
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Fourth iteration of an altered Koch curve. The triangle is located at the right end of the unit 


se base element. 


Fractal["Mixture"] 


Mixing of two generators. The first two iteration steps are governed by the original Koch 


Figure 7.3.10. ‘ : : 
8 generator. In the last two iteration steps, a rectangular Koch generator is used. 


a 
0.25 05 0.75 1 1.25 1.5 


Figure 7.3.11. | Change of the fractal dimension under a change of base angle. 
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Fractal["WKoch", Angle -> 1.4, Generations -> 5] 


Figure 7.3.12. Koch curve with base angle a =1.4. The scaling factor is r = 0.42736.... 


7.4 Multifractals 


In the previous sections, we discussed structures with mutual scaling 
factors. This kind of self-similarity is a special case of fractals. A more 
common type of fractal uses several scaling factors in competition with 
one another. If in the same system different scaling factors occur with 
different probabilities, we speak of multifractal behavior. The first step in 
the construction of a multifractal consists of the division of a set into j 
components, in which each is scaled by the factor 1/r; < 1. We assume 
that each part of the j-fold set is related to a probability P;. The 
probabilities P; are normalized so that Diet P;=1, where n counts the 
number of subsets. The second step in constructing k = 2 is a repetition of 
the first step applied to each subset. The n subsets are each divided into n 
subsets and are related to the corresponding probabilities. A graphical 
representation of this division is given in Figure 7.4.13. The multifractal is 
created as ko. 
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k=0 el 


Representation of a multifractal. The initial state k = 0 and the first iteration k = 1 are 


Figure 7.4.13. shown. The scaling factors are r}, 2, and r3. The related probabilities are P}, P2, and P3. 


The consequence of this construction is that we can divide the total fractal 
into n parts. Each part of the fractal is scaled by a factor 1/r, and the 
measure of the jth part is determined by P;. Using these quantities, we can 
define one of the characteristic functions of a multifractal by 


XadO=Die Pile) = PA xq(er)), (7.4.9) 


where Yq,j(€) characterizes the jth part of the fractal by a probability 
Dj; i(€) (p;i(e) is the ith probability for the jth part of the total fractal). For 
the total fractal, we get 


X(O=Lija1 Xq,j(6)- (7.4.10) 
Using the relation y, (€) = e4-) Ps and Eq. (7.4.9), we get the expressions 
Xq,j (6) =P! yqlerj) =P4 1 P# gaa, (7.4.11) 

n -1 
Ma Dy ee rp eevee, (7.4.12) 


which define the implicit equation for determining the generalized 


dimension D, by 


nt (q-1) Dg 
Dh a: (7.4.13) 


Depending on the choice of probabilities P; and scaling factors r;, we can 
use Eq. (7.4.13) to derive several special cases for a multifractal. For g = 0 
we get the fractal dimension D = Do. This dimension was introduced by 
Mandelbrot [7.4] for a fractal 


>; peal, (7.4.14) 
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For arbitrary q and identical scaling factors r;= r, we get the 
representation of D, by 


ie ( —1) Dg 
De Pare 1, (7.4.15) 
(g-1)Dglnr= -In Dijn1 Ph, (7.4.16) 
_ 1 In wi PA 
Di= 37 oar age: (7.4.17) 


Once the probabilities P; and the scaling factors r; are equal for each 


individual j, the multifractal properties no longer occur. 


Knowing the dependence of D, on q, alternate representations of the 
fractal dimensions emerge. By a Legendre transformation, we can 
introduce 


(q-1) Dy =(@) = 9% -Sy (7.4.18) 


where fj is the multifractal distribution and a, is the Hélder exponent. The 
Hélder exponent @, is defined by the derivative of r(q): 


Oy = Ye 10). (7.4.19) 


Once we know the fractal dimensions D,, we are able to determine the 
Hélder exponent and f, by relations (7.4.19) and (7.4.18), respectively. 
Knowing both quantities, we can plot f = f(q@) versus a, eliminating gq. 
Calculating the derivative of t(q) given in Eq. (7.4.19) causes numerical 
problems. Finding the numerical derivative of the Legendre transformation 
of D, is the main problem in our calculation. In the package 
MultiFractal’ (see Section 7.8.3), we use a symmetric difference 
procedure (see Section 3.5 of Chapter 3) for representing the numerical 
values of the derivatives of t(q). The transformation to Tt is defined in the 
function Tau[]. The approximations of derivatives by their differences 
result in a numerical error, but it is sufficiently small if we choose steps dq 
in g as a small quantity. 


MultiFractal[] calculates the multifractal characteristics. Probabilities P; 
and scaling factors r; are input parameters for this function. The fractal 
dimension D,, the function t(qg), and the Legendre transfor- mation are 
determined by the functions Dq[], Tau[], and Alpha[], respectively. After 
their calculation, these quantities are graphically represented by the 
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Mathematica function ListPlot[]. An example of a transformation is given 
in Figures 7.4.14-7.4.17. 


7.4.1 Multifractals with Common Scaling Factor 


We now consider a multifractal with a fixed and a mutual scaling factor 
r; = r. To determine the generalized dimensions D,, we use Eq. (7.4.17), 
which gives 

) ln Die P4 


D,= oy rae (7.4.20) 


In the following, we consider a model that contains three independent sets, 
n = 3, characterized by the probabilities P; = 1/5, P2 = 3 P;, and P3 = P;. 


If we use relation (7.4.17) for these three processes, we get 


1 In(Pf+ P5+P)) 
De aa Cae) 


Normalizing the probability by P; = 1—P,—P, simplifies expression 
(7.4.21) to 


1 In(P{+ P§+(-P)-P)?) 
D, =r == (7.4.22) 


The numerical results are represented in Figure 7.4.15 which is created by 
MultiFractal[{1/5,3/5,1/5},{1/2,1/2,1/2}]. In the above case, probabilities 
P, = P3 and P, = 3 P, simplify Eq. (7.4.22) to 


1 In@+34)+q InP) 
Dea =a (7.4.23) 


From relation (7.4.23), we can derive analytic relations for the Hoélder 
exponent @,, and for the spectrum fj by using relations (7.4.19) and 


(7.4.18). We get for a, the expression 


{ist ( 3tins 
4 = Tan \ 2439 


— In(P})). (7.4.24) 
The spectrum of the fractal dimensions is given by 
1 d 
f= Ta (q Gq 2 +34) -In2 + 34)). (7.4.25) 


Relation (7.4.25) is independent of P; and only contains the ratios of the 
probabilities. Since the expressions for Dj, @,, and f, can not be solved 
explicitly, we use the numerical method implemented in the function 
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MultiFractal[] to find the solution. Figures 7.4.14-7.4.17 show the results 
of our calculation. The fractal dimension Do of our model is Do = 1.58... . 


Figure 7.4.14 represents the auxiliary function t(g) =(g — 1) Dg, which is 
the basis of the numerical calculations. Figure 7.4.15 contains the 
representation of the generalized dimension D,. Relations (7.4.19) and 
(7.4.18) for f; and @, are shown in Figure 7.4.16. We observe that a, is a 
monotonically decreasing function and that f, shows its maximum at g =0. 
The Legendre transform of these relations results in the function f(q@) as 
shown in Figure 7.4.17. We observe that the values of f(@) are almost 
equally spaced at the maximum and become denser at the boundaries of 
the a interval. In the a@_,, limit, the function f(a) tends to 0, but for a, a 
finite value f(q) results. This means that for @ = a, a finite dimension of 
the subsets exists which is smaller than Do but greater than zero. 


-10 —5 5 10 ‘ 
= ai 


Function t, = (¢ — 1) Dg versus q in the range q € [—10, 10] for the model fixed by n = 3 


Figure 7.4.14. 
Bay and r = 1/2. The probabilities are P} = 1/5, Pp = 3/5, and P; = 1/5. 


800 7.4 Multifractals 


1.6) 
1.4. 
1.21 
| ee “S40 | 


Generalized fractal dimension D, for the model n = 3, r=1/2, P) =1/5, P2 =3/5, 
P3 = 1/5, and q € [-10, 10]. 


Figure 7.4.15. 


—10 -5 S 10" 


The exponent a, (top) and f (bottom) versus q for the model n = 3, r= 1/2, Pj=P3= 1/5, 


Figure 7.4.16. P) =3/5, and q €[~10, 10]. 
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f 
1.25 ee a 
0.75" 
V5 
re 
0.75 1525° 1:5: 4.75) “20 22.25 


The fractal spectrum f(a) for a multifractal with n =3, r=1/2, P) = P3 =1/5, and 


Figure 7.4.17. 
vee Py =3/5. 


7.5 The Renormalization Group 


Renormalization group theory is useful for describing physical phenomena 
that show the same behavior on different scales. We assume that p is a 
quantity measured with a certain accuracy. The same physical quantity is 
measured in a second experiment, yielding p' with an accuracy which is 
smaller by a factor of 2 than the first measurement. We assume there is a 


resolution transformation /) connecting the two measurements by 


p'=fr(p), (7.5.26) 


where subscript 2 denotes the order of resolution. If we decrease the 
resolution of the measurement by another factor of 2, we get the relation 


P"= fklP') = filfa(P)) = fa lp) = fal). (7.5.27) 


The general representation of our resolution transformation for two 
arbitrary resolutions a and b is given by 


fa fo = fav, (7.5.28) 
fi = 1, (7.5.29) 


where 1 represents the identity transform. Applying the resolution 
transformation to any physical state, a reduced state containing less 
information is created. Decreasing the resolution from a state with small 
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resolution is, in general, not possible. In other words, the function f 
cannot be inverted in general. A set of functions which is not | tol is 
called a semigroup in mathematics. In physics, the transformation reducing 
the resolution is called renormalization. (Strictly speaking, f should be 
called a semirenormalization group.) By definition, the renormalization 
group is closely related to the definition of a fractal. 


Since a fractal stays invariant under a scaling transformation, it is evident 
that a fractal also stays invariant under a renormalization transformation. 
Chronologically both terms — fractal and renorma- lization — were 
introduced in the 1970s. Both describe the behavior of an object with 
changing scales. The difference between the two terms is that a fractal is 
based on geometrical properties, whereas renorma- lization considers the 
physical properties in a scaling process. However, recent developments in 
fractal theory also consider physical properties, whereas renormalization 
theory is also applied to geometric objects. Consequently, the distinction 
between a fractal and renormalization theory is disappearing. 


Renormalization theory is a tool describing critical phenomena like phase 
transitions in a liquid. Liquids, for example, possess a critical point in their 
phase diagrams. Renormalization theory is used to describe the behavior of 
the system in the immediate neighborhood of the critical point. Let us 
consider a state of liquid below the critical point where a mixture of liquid 
and gas coexists. Below the critical point, the mixture contains more liquid 
than gas. If we "coarse grain" our observation, we get a system which is 
dominated by the liquid phase. The combination of cells containing liquid 
and gas components produce a liquid state under renormalized conditions. 
The repetition of the "coarse graining" process results in a global liquid 
state. If, on the other hand, the initial state of the phase diagram contains 


more gas than liquid, the renormalization results in a gaseous state. 


In another example, we consider the renormalization procedure in 
connection with percolation theory. Percolation theory is a_ theory 
describing the connections in a network of random links. The theoretical 
basis for this theory was created by P.G. de Gennes [7.7], winner of the 
1991 Nobel Prize. He applied percolation theory for disordered materials 
in polymer science. Percolation phenomena are widespread in nature, 


occurring in biological, chemical, and physical systems. 
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Percolation theory allows the connection of two different boundaries with 
a cluster of particles on a lattice. Specifically, let us examine the transport 
of electrons through a porous medium which is located between two metal 
plates. The transport of the charge is carried by a percolation cluster 
connecting both plates. In order to study the transport of electrons, picture 
the simulation of a current in a porous medium on a two-dimensional 
lattice. Atoms carry the charge on the lattice. The atoms are randomly 
scattered. Using the probability p, an atom at a certain location on the 


lattice can be located. 


The renormalization step on this lattice is defined by the rule valid for a 2 
x 2 sublattice, which is called the virtual lattice. We are able to replace the 
region of the virtual lattice with a new lattice point in the renormalized 
lattice. The resultant lattice is called the superlattice. The (2 x 2) cells of 
the virtual lattice are called blocks (see Figure 7.5.18). 


Figure 7.5.18. | Renormalization steps with (2x2) blocks. 


The transition from the original lattice to the superlattice follows rules for 
replacing old atoms with new ones. The simplest rule applies if we have 
four atoms in a block. In this case, the new point in the super lattice is an 
atom. If we only have three atoms in a block, another new atom emerges 
on the superlattice. Accordingly, percolation clusters can form horizontally 
as well as vertically. If a block only contains one or two particles, it is 
impossible for a percolation cluster to occur which is independent of any 
direction. Therefore, no atom appears on the superlattice. Applying the 
transition rules as defined in a probability projection, we can write down 
the probability of finding an atom on the superlattice by 
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(p') = fo(p) = p* +4 pr(1 - p). (7.5.30) 


The first term describes the probability that all four atoms are present in a 
block. The second term takes into account the four possible arrangements 
of three atoms in a block. Since we now know the function /:, we can 


determine the phase transition by using the properties of fo. 


Generalizing relation (7.5.30) for a lattice with n= b x b locations on 


which m empty points exist is given by the expression 


f(PYn) = (") p” (1 - p). (7.5.31) 
i=0 


Equation (7.5.31) specifies the probability on a lattice if the block contains 
n locations of which all m points are empty. 


The critical point p, on the (2x2) lattice is defined in such a way that the 
probability will not change under the transformation f,. The fixed point p, 
is derived from the relation 


Pc = Pe + 4 pC — pe) (7.5.32) 


with solutions 
pe = (0,1, YE}, (7.5.33) 


The numerical values of the third and fourth solutions are —0.434 and 
0.768. Since p is a probability which is always greater than 0, we have to 
exclude the solution p, = — 0.434 from the physical solution set. The cases 
Pc = 0 and p.= | are trivial since they correspond to an empty or 
occupied lattice. The remaining value of p,. = 0.768 seems to be the 
critical value for which a percolation takes place. We observe a gap if we 
compare the theoretical value with the value p.,= 0.59 yielded by 
computer simulations. However, the experimentally determined value of 
Pc = 9.752 is fairly close to its theoretical counterpart [7.5, 7.6]. A 
graphical representation of the critical probability versus the number of 
lattice points is given in Figure 7.5.19. The curves in this figure represent 
different superlattices. 
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5 Gy SIS. es S25: a0 
Percolation probability for super lattices with 4, 8, 16, and 32 lattice points. The 


Fi F519, 
ape probability is plotted versus the number of empty lattice points. 


To see how other solutions of (7.5.33) are reached, we first consider the 
case p < pz. In this case, we get the inequalities 


Po > p> fro(p) > fe (p)>:++ > fax (p). (7.5.34) 


Relation (7.5.34) shows that the probability p decreases in each 
renormalization step. After infinitely many renormalization steps, we get 
the limit f.,(p) = 0. In other words, a point with an atom somewhere on the 


lattice is impossible, since the lattice is empty. 


For the case p> p-, the reverse occurs and f.,.(p) = 1. After infinitely 
many renormalization steps, the superlattice is fully occupied. This means 
that all initial values in the neighborhood of p, = 0.768 will tend to be 
Pc = 0 or pe = 1. The fixed point at p, = 0.768 is unstable (see Figure 
7.5.20). 


—# Be 
0 De 1 


Figure 7.5.20. Stability of the fixed points in the renormalization procedure. 


In the following, we determine the fractal dimension of the cluster at 


percolation p, = 0.768. If an atom is present on the superlattice, we know 
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that there are either three or four atoms in a block. The expectation value 
D- N, of occupied lattice points is thus given by 


(pe N,) =4 pt + 3-4 p2(1 - p) (7.5.35) 
=> N,=4p3+3-4p2(1 - py), (7.5.36) 


where N. is the mean value of atoms provided that the superlattice is 


occupied. The general formula for a square grid has the representation 


es n z i-1 i 
Ne (PYin) = ) eG —i) p’ Y= p) . (7.5.37) 
i=0 


Equation (7.5.37) counts the mean number of occupied lattice points for a 
square lattice with n locations and with m empty locations. A graphical 
representation of N. versus m is given in Figure 7.5.21. The curves in the 


figure represent different block sizes. 


m 
5 Oe Salas 2066 25> 30 


Mean number of occupied locations in a square lattice. The block size is 4, 8, 16, and 32 as 


Fi 7.5.21. 
ae shown in the curves from bottom to top. 


The meshsize in the superlattice is twice that of the original lattice. If we 
divide the meshsize by 2 in the superlattice, we observe N, atoms, the 
average in the original lattice. Generalizing this observation when reducing 
the observation scale by a factor of 1/b yields 


N.(b) = b7?. (7.5.38) 


In the example discussed above, b = 2. From relation (7.5.38) we get for 
the specific case, 
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- = 1.79, (7.5.39) 


where the constant D represents the fractal dimension of the percolation 
cluster. D = 1.79 is in good agreement with the value found in computer 
simulations. However, the experimental value of the fractal dimension is 
different (D = 1.9 [7.5]). Figure 7.5.22 represents the fractal dimension 
compared to the empty lattice points for several block sizes. We observe 
from this figure that the fractal dimension decreases with an increase of 
empty lattice points. The dimension D approaches 2 if the lattice is almost 


fully occupied. 


ine) 


eras) ; 
0.5 


Fractal dimension of a percolation cluster versus empty locations for four block sizes 4, 8, 


Figure 7.5.22. 16, and 32, 


In our previous considerations, we calculated the fractal cluster dimension 
at the critical point. Other interesting quantities in the neighborhood of the 
critical point are the critical exponents. The critical exponents are easy to 
derive if we again use the renormalization procedure. As an example, we 


determine the critical exponent of the correlation length. 


For p < p,- and p in the neighborhood of p,, we can represent the 
correlation length € by 


€=flpe- pl”, (7.5.40) 
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where & is a characteristic length of the system (e.g., the meshsize). If we 
consider the rescaled superlattice, we find for the invariant correlation 
length, 

E=&' | pe- pil” (7.5.41) 
with €'=2&). From Eq. (7.5.39) and (7.5.40), we derive the critical 


exponent v: 


eRe (7.5.42) 
At the limit where p and p' tend to p,, we can replace 
PP _, £ eye (7.5.43) 
The final result for the critical exponent is 
log(2) 
v= 7 (pw) (7.5.44) 


log (AF Ip=re 


Using the functional relation f; in Eq. (7.5.44), the numerical value v = 
1.4 is close to the experimental value of vy =1.35. 


The renormalization group theory is useful for determining fractal and 
critical properties of a system. Note that the renormalization theory is a 
kind of perturbation theory. Errors occur in the renormalization procedure 
when defining renormalization rules. For example, blocks containing more 
than two atoms are replaced by atoms on the superlattice, whereas blocks 
containing one or two atoms are given by a void. This coarse graining 
process is the source of renormalization errors; that is, we create a crude 
picture of the original lattice in the superlattice containing links and gaps 
on sites where no links were present in the original lattice (see Figure 
7.5.23). To minimize errors, we use large block sizes. If we use blocks of 
size b, we have b? lattice points. The number of states in the block is given 
by 2”° and increases rapidly with block size b. From a practical point of 
view, b =4 is the upper limit for which we can calculate the renormalized 
function fy. 


The package Renormalization’ (see Section 7.8.4) contains the functions 
Ne[] for determining the mean number of occupied lattice points, Dim[] 
for calculating the fractal dimension, and Pcrit[] for calculating the critical 


probability of percolation. Function RenormPlot[] allows the graphical 
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representation of the above functions. Examples of the plots are given in 


Figures 7.5.19, 7.5.21 and 7.5.22. 


Figure 7.5.23. 


Errors in the renormalization of a 2x2 lattice. 
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7.6 Fractional Calculus 


Fractional calculus, contrary to fractal geometry, is an old subject in 


mathematics. This kind of calculus is useful to describe phenomenological 


models for different chemical and physical processes. Among these 


processes are temporal relaxations of polymeric material and diffusion 


processes in space and time. Fractional calculus is an approach to 


mathematically describe natural phenomena which are mainly connected to 


power law behavior in the limit of large arguments. The power-law 


behavior of large arguments for natural systems is typically accompanied 


by a deviation from these power laws for small arguments. Thus, fractional 


calculus is a tool to interpolate between these two regimes by means of 


fractional differentiations. 


810 7.6 Fractional Calculus 


7.6.1 Historical Remarks on Fractional Calculus 


The term fractional calculus is by no means new. It is a generalization of 
the ordinary differentiation by noninteger derivatives. The subject is as old 
as the calculus of differentiation and goes back to times when Leibniz (see 
Figure 7.6.24), GauB, and Newton invented this kind of calculation. In a 
letter to L* Hospital in 1695, Leibniz raised the following question: 


Figure 7.6.24. Gottfried Wilhelm von Leibniz: born July 1, 1646; died November 14, 1716. 


Can the meaning of derivatives with integral order d” y(x)/dx" be 
generalized to derivatives with nonintegral orders, so that, in general, 
n € C? This question goes back to a query of Bernoulli, who was 
interested in the noninteger differentiation of a product. The story goes 
that L* Hospital was somewhat curious about that question of Leibniz and 
replied by another question. What if n = 5? Leibniz in a letter dated 
September 30, 1695 replied: IJ y a de l'apparence qu'on tirera un jour des 
consequences bien utiles de ces paradoxes, car il n'y a gueres de 
paradoxes sans utilité. The translation reads: It will lead to a paradox, 
from which one day useful consequences will be drawn. The question 
raised by Leibniz for a fractional derivative was an ongoing topic in the 
last 300 years. Several mathematicians contributed to this subject over the 
years. People like Liouville, Riemann, and Weyl made major contributions 


to the theory of fractional calculus. 
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In fact, a fractional derivative is useful for some types of function. For 
example, let us consider the nth derivative of a power x”. We know that 
the general expression for the nth derivative is given by 


2 a gn (7.6.45) 


dx” (m—n)! 


We also know that a factorial is connected with Euler's [ function by the 
relation n!=[T(n+ 1). Replacing the factorials in Eq. (7.6.45) by the T 
function, we can write 


d" x" — _T(m+tl) —n 
ant = FEATS ee (7.6.46) 


This representation is equivalent to Eq. (7.6.45); however, it contains the 
potential of a generalization. We know that the I function is defined for 
continuous arguments over the complex domain. If we now change the 
integer value of n to a number ge C, we are able to generalize the 
meaning of an integer differentiation to a noninteger form. We can even 
define a complex differentiation. Replacing n by q in Eq. (7.6.46) results 
in general in 


dtx™ —  Tantl) 9 
dx? ~ T(m-—q+l) x. (7.6.47) 


Relation (7.6.47) has a well-defined meanin; however, it is restricted to 
powers x”. However, if we try to fractionally differentiate such simple 
functions with Mathematica, we end up with the following result: 


O¢x,1/2) *° 


D::dvar : 
1 
Multiple derivative specifier {x, il does not have the form 


{variable, n} where n is a nonnegative machine integer. 
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This shows us that Mathematica is not capable of dealing with fractional 
differentiation orders. The developer of Mathematica, however, designed 
the system in such a way that the user can extend the definition of 
derivatives. This extension will be our subject in the following. Telling 
Mathematica that fractional derivatives of powers are useful mathematical 
constructs is realized by the following lines: 


Unprotect[D] ; 


First, unprotect the differentiation and then add a new definition: 


Dies =P, He 2 Ct il B= 
Gamma [m + 1] 
——_—_——_—_———_ x1 /; Head[q] == Real | | 
Gamma [m - q+ 1] 


Head[q] == Rational || Head[q] == Complex 


Protect the differential operator again: 


Protect [D] ; 


The definition of the fractional derivative of powers is based on Eq. 
(7.6.47) and restricts the order of differentiation either to the rational, the 
real or the complex numbers. An example for a rational number reads 


fx, 5} * 


2Vx 
Nea 


If we set the order of differentiation g to a real number, we find 


Ojx,2.1} X” 


1.87156 
xO.1 
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Even if we use complex numbers differentiation order, we get a result: 


4 
O(x,11.5+1} X 


(57152.1 — 143371. i) 7? 


This kind of formula was discussed by Lacroix in 1819 [7.8] based on the 
work by Euler in 1738 [7.9]. In retrospect, these formulas are the first 
analytical answer of Leibniz's question on fractional derivatives. The 
answer lied 100 years dormant and needed the work of Euler to get a 
preliminary answer. The story on fractional calculus continued with 
contributions from Fourier, Abel, Liouville, Riemann, and Weyl. For a 
historical survey, the reader can consult the books of Oldham and Spanier 
[7.10] or Miller and Ross [7.11]. The historical developments culminated 
in two main calculi based on the work of Riemann [7.12] and Liouville 
[7.13] on the one hand and on the work of Weyl [7.14] on the other hand. 
Both formulations are connected and Weyl's calculus forms a subset of the 
Riemann-—Liouville (RL) calculus. In Section 7.6.2 we will discuss the RL 
calculus. Section 7.6.3 is concerned with the Mellin transform used in the 
solution of fractional differential equations. Section 7.6.4 discusses the 
solution of different fractional differential equations. 


7.6.2 The Riemann-Liouville Calculus 


The development of fractional calculus within the framework of classical 
functions is well known and no purpose would be served by a detailed 
exposition. However, the present subsection has the aim to provide the 
reader with the basic tools to carry out such calculations by computer. We 
not only present the theoretical background of the calculus but also show 
how symbolic computation is instrumental in calculating fractional 
expressions. Most of the basic analysis is discussed in the book by Oldham 
and Spanier [7.10]. The more theoretical issues as well as historical 
remarks are collected in the book by Miller and Ross [7.11]. 


In the previous subsection, we introduced the fractional derivative by 
heuristics using properties of Euler's I function. In this subsection, we will 
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define an operator to calculate fractional derivatives. This operator is 
based on works by Riemann and Liouville (RL). Paradoxically, the basis 
of this differential operator is not a derivative but an integral. However, we 
can understand an integration as a differentiation if we introduce a 
differentiation with negative exponents. For example the negative 


first-order derivative is defined by 


a fa) = [fd (7.6.48) 


The negative second-order derivative is 


a fo = [Lfo)dsde... (7.6.49) 


The negative order of differentiation means nothing more than an 
integration. Higher orders of differentiation are calculated by nesting the 
integrals on the right-hand side. We will abbreviate this kind of recursion 
by the symbol Do",., where n is a positive integer. Thus, Eq. (7.6.48) is 
reduced to 


Doi fO) = [i f@dt. (7.6.50) 


The symbol 5", contains the complete information for the calculation of 
the negative differential in a nutshell. The lower two indices denote the 
lower and upper boundaries of the integral. The superscript represents the 
order of differentiation. A weak generalization of the above notation is 
gained if we allow an arbitrary starting point a as the lower boundary in 
the integral; that is, 


Dia = [ fode (7.6.51) 
If we consider the nth derivative D,", of an arbitrary function f(x), we 
write 

DEI ff fonda de (7.6.52) 


Recalling Cauchy's integral formula 
d” ! ae 
ae [O= Fa LG-I" FO as, (7.6.53) 
we can reduce Eq. (7.6.52) to 
a 1 x es 
Dar £0) = Gopr Sf, @&— 70)" fo) dx. (7.6.54) 


Using the well-known relations of the I function and factorials discussed 


in the previous subsection, we can generalize the result to an arbitrary 
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order of fractional differentiation by replacing n! by I(n + 1). The general 


formula follows thus by 
Dr f (x) = 


3 5 (7.6.55) 
aa f= 2x0)! fx) dxy with Re(q) > 0. 


This kind of operator is denoted as the Riemann (R) version of the 
fractional integral by Miller and Ross [7.11]. The Liouville (L) version of 
this operator follows if we replace the lower boundary a of the integral by 
—oo; that is, D7Z , f(x) is called the Liouville fractional integral. A 
sufficient condition that this integral converges is that f(—x) = o(x-©*) for 


€ > 0 and x > oo. The special case where a = 0 
— 1 x = 
Di lO = TH h@- 20)" f@o)dx, 9 >0, (7.6.56) 


is known as the Riemann—Liouville (RL) fractional integral. A sufficient 
condition that the RL integral converges is given by f(1/x) = O(x'~*) for 
e€>0. Functions satisfying this relation are called functions of the 
Riemann—Liouville type. For example, the functions x* with a > —1 and a 
constant belong to this class of functions. We recognize that the different 
definitions of Riemann—Liouville fractional integrals differ only in the 
lower boundary of the integral. The reader might suppose that this small 
difference is of minor importance. The following subsection will 
demonstrate that this assumption is not correct. The change of the lower 
boundary has very far-reaching consequences in the calculation of 
fractional derivatives. 


So far, we introduced the notation of the fractional integral. A fractional 
derivative is connected with a fractional integral by introducing a positive 
order of differentiation in the operator 0,4. This shift of order can be 
obtained by introducing an ordinary differentiation followed by a 
fractional integration. We thus define a fractional differentiation by 


Dix fO = ( a on f(x) with (7.6.57) 


neéN, s>0, n-s >0. 


In this Riemann notation, the fractional derivative depends on a lower 
boundary a of the integral. This dependence disappears if we consider only 
the RL operator with a = 0. 
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Up to the present point, we discussed the essentials of the theory of RL 
integrals. If we intend to use computer algebra in connection with RL 
operators, we need to know how RL operators are implemented. Thus, the 
next step is to create a function in Mathematica which carries out the 
calculation. We call this function RiemannLiouville[]. Since the RL 
integral is applied to functions depending on one independent variable, say 
x, we need to supply this information to the function. Another quantity 
which must be given by the user is the order of differentiation g. In 
addition to these two input variables, we need information on the lower 
boundary of the integration interval. Thus, our function needs, in addition 
to the function on which we apply the RL operator, three input quantities. 
The lower boundary is superfluous if we treat a RL integral. The following 
definition of the Riemann—Liouville fractional integral incorporates the 
theoretical considerations discussed above: 


Remove [RiemannLiouville] ; 
RiemannLiouville[1, {x_, order _, a_: 0}] := 
(x - a) “-order / Gamma[1 - order] ; 
(*--- main function --- +) 
RiemannLiouville[f , {x_, order_, a_: 0}] := 
Block[{n, int, y}, 
If[NumericQ[order] && Simplify[order > 0], 
n= Floor[order]; q= order-n]; 
int = Integrate[(x-y)~%? (£/.x-y), 
{y, a, x}, GenerateConditions > False]; 
D[int / Gamma[-q], {x, n}] /; FreeQ[int, y] 
] 


At this stage, we know how functions are treated by a RL integral. Before 
we apply RiemannLiouville[] to a mathematical problem or use it in 
physical models, we introduce some general properties of the fractional 
derivative. These properties are important for manual as well as for 
automatic calculations. They also serve to extend the properties of the 


function RiemannLiouville[]. 
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7.6.2.1 Properties of Riemann-Liouville Operators 


The main properties needed in an implementation of RL operators are 
linearity and the composition rule. These two properties are basic 
properties in addition to the Leibniz rule of differentiation and the chain 
rule. Let us discuss these properties in more detail. In the implementation 
of the mathematical properties, linearity and the composition of derivatives 
are of importance. The other two relations are of minor practical 
importance. 


1 Linearity 


Linearity is one of the basic properties of a RL operator. This property 
guarantees that the superposition of a RL operators applied to different 
functions is the same as the application of the RL operator on the 
superposition of functions. Linearity of a RL operator means 


Dix (@ fF) + Bg) = Di, f+ BD x8, (7.6.58) 


with @ and £ as real constants. Relation (7.6.58) is implemented by two 
functions. The first function removes common constants from the 


argument of the input function: 


RiemannLiouville[c_f£ _, {x_, order_, a_: 0}] := 
c RiemannLiouville[f, {x, order, a}] /; FreeQ[c, x]; 


The second part of the linearity represents a superposition of two 
functions. This property is implemented as 


RiemannLiouville[f +g _, {x_, order _, a_: 0}] := 
RiemannLiouville[f, {x, order, a}] + 
RiemannLiouville[g, {x, order, a}] 


Both definitions combined represent relation (7.6.58). Linearity of the RL 
operator means that the operator Dy, , can be distributed through the terms 
of a finite sum; that is, 


Dix Lied AO) = Vio Dox i. (7.6.59) 
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Another important relation is the composition rule of fractional 
differentiation. 


2 Composition Rule 


In the case of RL integrals for u, v > 0 and f(x) continuous, the relation 
Dol Doe FO) = Do” fa) (7.6.60) 
holds. 
The composition rule combining two fractional derivatives of different 
order is 
DD FO) = Dee IO), (7.6.61) 


with p <0 and f(x) finite at x = a. This property is another rule to extend 
the definition of the function RiemannLiouville[]. The following lines 
represent the above relation 


RiemannLiouville[ RiemannLiouville[f , 
{x_, orderl_, a_: 0}], {x_, order2_, a_: 0}] := 
RiemannLiouville[f, {x, orderl+order2, a}] /; 
orderl1 < 0 


In the case of p > 0, the following relation holds: 

Dix Dix FO) = DEP FC) - DILGF OC) — Dek, Dex FCO) (7.6.62) 
where the last term is 

Di? DP fa=f@y — via? (7.6.63) 


with 0 < p<m<p+1. The constants cz in Eq. (7.6.63) are constants of 
integration. In the case of the RL integral (a = 0), these constants are given 
by 


c= Trp Dos SO) |no- (7.6.64) 
The difference of p > 0 or p < 0 can be demonstrated by the example 

Dix Das f@) = fO) (7.6.65) 
for p < 0 and 
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DD IG) = fe (7.6.66) 
with c a constant. This example also demonstrates the general property that 


RL integrals do not commute. 


3 Chain Rule 


The chain rule of a RL operator is 
“(4 xi4 d! f(g(x)) 
4 = a ET NY 
D1. f(g) = ) = (“) er a (7.6.67) 
The complexity of this result will inhibit its general utility in connection 


with computer algebra. The chain rule creates an infinite series that offers 
little hope of being expressible in closed form. 


4 Leibniz's Rule 


The rule for differentiation of a product of two functions is a familiar 


result in calculus. It states that 


a" (f@) gQ)) : Mm) ds f(x) dig) 
ar i 1 i et dt (7.6.68) 
J= 


for non-negative integers n. The generalization of Leibniz's rule to 


negative numbers is given by 
"(4 a ; 
Dose) =) (AJOri Per Di.8 7.6.68) 
j=0 


where the binomial (“) =Tq¢+l/TG+ DI(q—-j+ 1) is expressed by 


Euler's [" function. Again we face the problem that Leinbiz's rule results 
into an infinite series. This series may collapse to a simple expression if 
the functions f and g are simple. However, in general computer algebra 


cannot handle this relation. 


The discussed Mathematica code shows that it is sufficient for an 
implementation to use the definition given by the RL operator in Eq. 
(7.6.56)-(7.6.59). The mathematical formulas and the Mathematica code 
above show that the RL operator in mathematical and Mathematica 
notation is quite similar. To make this similarity to an identity, we 
introduce a special Mathematica notation identical with the RL operator 


symbol. The notation D=,[G] is connected with the function 
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RiemannLiouville[]. The template is designed in such a way that it is 
identical with the mathematical notation given above. However, this 
notation differs somewhat from the standard notation used in the literature. 
Since in Mathematica it is safer to handle the lower indices of the operator 
D,4 on the right side of the D symbol, we changed the notation given by 
Davis [7.15], who used ,D;,? for the RL operator. The function 
RiemannLiouville[] and the template D;4 allow us to carry out different 
calculations. The following examples show how the function 
RiemannLiouville[] is used and what kind of calculations are supported 
by this function. 


We note that the following calculations are based on the package 
FractionalCalculus’ developed by Siidland and myself. This package is 
available from the author by request. To support the future development of 
the package FractionalCalculus\, we have to charge the user for the 
package. 


7.6.2.2 Examples 


An example frequently discussed in the literature [7.10, 7.11] is the 
differentiation of a constant. From standard calculus, we know that an 
ordinary integer differentiation of a constant vanishes. Applying the RL 
operator of order g = | /2 to anumeric constant, say c = 1, we get 


Dy aed 


1 


Va vx 


This result compared with our knowledge of ordinary calculus is 
surprising. Contrary to an ordinary differentiation, the result of a fractional 
differentiation does not vanish but depends on the original variable, here x. 
The same result follows by applying the function RiemannLiouville[] to 
the constant. The difference is that we do not need to specify the lower 
boundary. The function RiemannLiouville[] assumes by default that the 
lower boundary is zero. However, we can change this boundary value by 


providing a third input variable in the second argument of 
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RiemannLiouville[]. Let us demonstrate this by first using 


RiemannLiouville[] with two arguments at the second input position 


RiemannLiouville[1, {x, 1/2}] 


Conditions to solve the fractional integral: 
x>0 


1 


Va vx 


The result of both calculations is the same. However, we have the freedom 
to choose the lower boundary as a third entry in the function 
RiemannLiouville[]. 


The gained results might contradict the general knowledge that the 
differentiation of a constant vanishes. Contrary to the ordinary calculus, in 
fractional calculus it is not true that the differentiation of a constant 
vanishes. This behavior is obvious if we recall the definition of a fractional 
derivative by an integration in Eq. (7.6.56). This nonvanishing of a RL 
operator applied to a constant is even true if we allow a general order of 
differentiation. Before we can apply the RL operator to the constant, we 
have to tell the package FractionalCalculus that we restrict the order of 
differentiation to positive values, meaning vy>0O. This mathematical 
assumption is incorporated into the package FractionalCalculus by the 
function Assume[]. This function allows one to specify conditions under 
which the integrals are calculated. For our example, we set 


Assume [v > 0] 


{{{v > 0}, {Im[v] > 0, Re[v] >v}}} 


This assumption tells the RL operator that v is a positive real number. The 
calculation of the RL integral in the general form then gives 
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di = Do, x LK] 


Conditions to solve the fractional integral: 
x>0&&Re[v] <1 


Kx’ 
T[{l-vyv] 


where K is a constant. The expression shows that for positive v < 1, the RL 
operator provides a nonvanishing result containing Euler's [ function. A 
graphical representation of the result for different v's is given in the 
following plot: 


Plot3D[d1/.K->1, {x, .01, 3}, 
{v, -4, 1}, PlotPoints -> 40, Mesh -> False, 
AxesLabel -> {"x", "v", "Do, ,[1]"}]; 
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The above calculations show some printings in between the input and 
output. These printouts inform you about the conditions under which the 
calculation was carried out. The output of conditional information is 
controlled by an option of RiemannLiouville[]. The options of the RL 
function are 


Options [RiemannLiouville] 


{ShowConditions > True, UniqueSymbols > False, 
OldhamSpanierConstants > False, 
FractionalIntegrationVariable-y, 
ShowFinalResult > False, 

ShowLiterature > False, ShowResults > False} 


To suppress the information on solution conditions, we set the option 
ShowConditions to False. 


SetOptions[RiemannLiouville, ShowConditions > False] 


{ShowConditions > False, UniqueSymbols > False, 
OldhamSpanierConstants > False, 
FractionalIntegrationVariable-y, 
ShowFinalResult > False, 

ShowLiterature > False, ShowResults > False} 


Now, RiemannLiouville[] does not display any information about the 
calculation. An example of a RL integration demonstrates this. The 
example uses a power function x“ to which we apply the RL operator. Let 
us assume that the fractional order of integration is any positive number 
greater than zero and let 4 be a real number. The application of the RL 


operator to this function gives 


Assume[v > 0]; 
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Doy x [x"] 


xHtY PU 1 + UW) 
T[l+u+v] 


The result is again a power function containing both parameters pz and v as 
exponents. The behavior of projecting a function into the same class of 
function is not typical for the RL operator. The application to other classes 
of functions like exponentials, sines, and cosines demonstrates that we get 
higher transcendental functions. An example for this behavior is the 


function e** with a > 0. The application of the RL integral delivers 


Assume[a > 0]; 


Dov x [e**] 


ea’ y[v, xa] 
Iv] 


which represents the Mittag—Leffler function in Mathematica notation. 
The Mittag—Leffler function E,,(v, @) is defined by 


Eva) = (1- 78), (7.6.70) 


Other examples showing the same behavior are the trigonometric functions 


Do’, [Sin[w x] ] 
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Do’ ~[Cos[w x] ] 


x’ F [ pe 4 x2 w? 
, , 
_S teas 1+ 3} ‘ 
I[1l+y] 


Both results are connected with hypergeometric functions F,,. Let us 
consider some slightly more complicated functions 


£[x_] := (a +x)? 


and assume that 


Assume[A> 0]; 


Then, the fractional integral of this function follows by 


Do’, [£[x]] // FunctionExpand 


If we change the sign of x in f, we get 


$[x_] := (a-x)* 


Do x(¢[x]] // FunctionExpand 


x0 Foi (1, hip AAR; +] 
Til+v] 


The difference between the two results is the minus sign in the argument of 
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As a another example, let us examine functions containing logarithms. The 


fractional integral of In(x) is given by 


Do, x [Log [x] ] 


x” (-~HarmonicNumber[v] + Log[x] ) 
r[1+v] 


A more general example is the combination of powers and logarithms by 


Do, x [x" Log[x] ] 


1 
re a HM 
I[l+ut+yv] ve [Pee 
(HarmonicNumber[l] - HarmonicNumber[u+v] + Log[x]) ) 


If we combine a power and an exponential, we find a sum of 


hypergeometric functions: 


Do [x* Exp[-1/x]] // FunctionExpand 


mx’ Csc[mu] Fiill-v, 2+u, -<] 
T[2+u] Pfy] i. 
mx#*Y Csc[tu] Fijil-u-v, -uy -$] 
I[-uj F[l+ut+yv] 


As a result, a combination of power laws and hypergeometric functions 


follows from 


De’ x [Cos[ax]7] 
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A completely different result follows for rational functions. First, let us set 
the integration order to the special value —1/2. For the function 
(1 -—x)/(1 +a), we find 


2 (-Vx Va V1+xa + (1+a) ArcSinh[Vx Va ]) 


a3/2 Jr +0 xa 


The result contains hyperbolic functions. For arbitrary v, we find 


hyper = Dial ; ae ] // FunctionExpand 


Conditions to solve the fractional integral: 


1 i 1 
x>06@Re[v] > 0&6 (—— 20|/1+ = <0|| Im[ =] +0] 


x” Foi [1, 1, l+v, -xa] xi’ Fy [1, 2, 2+v, -xa] 


T[l+v] T[2+V] 


If we choose v = 1/2, the result reduces to the previous result: 


1 
hyper /. v7 — // Simplify 
2 


2 (-Vx Va Vi+xa + (1+a) ArcSinh[ Vx Va ]) 


a3/2 n+ xa 


The following plot shows the result of the fractional derivative where x 
and y are used as coordinates and @ as a changing parameter. The static 
picture shows the transition to the value at y=1/2. In addition, the 
variation of @ visualizes the change of the surface. We observe that an 


increase in @ will stretch out the surface to a more or less flat plane: 
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a=0.1 


Including hyperbolic functions as arguments for the RL operator, we find 


Do’ . [x4 Sinh[y x] e**] // FunctionExpand 


1 
“2P[l+utv] 
(SP Pl +) (Fiall+u, l+utv, x (a-y)] - 
Fi,if[l+u, 1+ut+v, x (a+y¥)])) 


The pure Sinh with a square root of the independent variable as argument 
in the RL integral reduces to 


Do’ x [Sinh[x*/?]] // FunctionExpand 


g-aty Vn xz? Perens Ti (142 v) [vx | 


The result is a Bessel function of J type multiplied by a power function. 
Even if we look at special functions like the Bessel functions, we can 
calculate the RL integral. The following example takes a Bessel J as 
argument in the RL integral: 
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Do’, [BesselJ[n, x]] // FunctionExpand 


a 
Q-n yntv Bp ALS 
cere re he oe ae, | 
I[l+n+yv] 


The result of this calculation is a hypergeometric function of general F 4 
type multiplied by a power function. Combining a Bessel functions with a 
power, we get 


Do’ ~[x" BesselJ[n, x]] // FunctionExpand 


2° xMeyY repent yl 


1 n Lu n u 2 

a [ Ape rye cory oe see hee ’ ay 

Pq Alt n UL v n LL v nT | 
tele Tp oo oh Set P 5 


(r[l+n] r[l+n+u+v]) 


Again, we find a hypergeometric function F,,, multiplied by an extended 


power function. A semifractional derivative of 1 ih Vx is given by 


oi2.[ =] 


Surprisingly, this differentiation vanishes. The reason why this result 
occurs is obvious from the more general derivative 
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1 
D3, x[ —] 
x 
Vm x7 2-Y 
Pis-v] 


We see that if y= 1/2, the I function approaches infinity and, thus, the 
overall behavior is reduced to zero. 


The above examples serve to demonstrate that the function 
RiemannLiouville[] is designed in such a way that a large class of 
function is accessible via integration and differentiation. We already 
observed that the application of the RL operators deliver extraordinary 
results for simple functions. How these results are useful in connection 
with physical applications is discussed in Section 7.6.4. 


7.6.3 Mellin Transforms 


Frequently in mathematical physics we encounter pairs of functions related 
by an expression of the form 


gx) = fF) K(x, Wdk. (7.6.71) 


The function g(x) is called the integral transform of f(k) by the kernel 
K(x, k). 


One of the most useful of the infinite number of possible transforms is the 
Fourier transform given by 


g(x) = = (fo el** dk. (7.6.72) 


Two modifications of this transformation are the Fourier cosine and the 
Fourier sine transforms 


8c(x) = 4] = i f (k) cos(x k) dk (7.6.73) 
0 

8s(X) = i = i f (k) sin(x k) dk (7.6.74) 
0 
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The Fourier transform is based on the kernel e’** and its real and 
imaginary parts taken separately, cos(kx) and sin(k x), because these 
kernels are the functions used to describe waves. Fourier transforms 
appear frequently in studies of waves. The output of a stellar 
interferometer, for instance, involves a Fourier transform of the brightness 
across a Stellar disk. The electron distribution in an atom can be obtained 


from a Fourier transform of the amplitude of scattered X-rays. 


Three other useful kernels in defining integral transforms are e7**, 
kJ,(k x), and k*"!. These give rise to the following transformations: 

g(x) = ffi e** dk (7.6.75) 
defining the Laplace transform, 

g(x) = [Sk Ik x) dk, (7.6.76) 
known as the Hankel transform, and 

g(x) = [) fk! dk, (7.6.77) 


the Mellin transform. Clearly, the possible types are unlimited. The 
following subsection will outline the Mellin transform in more detail. 


7.6.3.1 Definition of the Mellin Transform 


This subsection is concerned with the theory and application of the Mellin 
transform. We define the Mellin transform and its inverse. Several 
examples and the basic operational properties of the Mellin transform are 
discussed. Historically, Riemann in 1876 [7.16] first recognized the Mellin 
transform in his famous memoir on prime numbers. Its explicit formulation 
was given by Cahen in 1894 [7.17]. Almost simultaneously, Mellin, in two 
papers from 1896 and 1902 [7.18, 7.19], gave an elaborate discussion of 
the Mellin transform and its inversion formula. 


In this subsection, we study the Mellin transform, which, although closely 
related to the Fourier transform, has its own peculiar uses. In particular, it 
turns out to be a most convenient tool for solving fractional integral 
equations. We recall first that the Fourier transform pair can be written in 
the form 
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F(w) = ["e f() dt, with a <Im(w) <B (7.6.78) 
and 
1 —iw t 
fO= 5b f _e! Fw) da, a<y<B. (7.6.79) 


The Mellin transform and its inverse follow if we introduce the variable 
changes p=iw, x=e', and 0(t)= f(In(H), so that Eq. (7.6.78) and 
(7.6.79) become 


M(f(t) = F(p) = fy | fade (7.6.80) 
and 
M(F(p) = $0 = sep [Sr Fd p, (7.6.81) 


respectively. Equation (7.6.80) is the Mellin transform and, (7.6.81) is the 
inversion formula for the Mellin transform. The transform normally exists 
only in the range a < Re(p) < , and the inversion contour must lie in this 


strip. 


The following theorem collects the main properties of the Mellin transform. 


Theorem: Properties of Mellin Transform 


If M(f() = F(p), then the following properties hold: 
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No. Property 


i) — Scaling M(f(at) = + F(p), a>0 
ii) Shifting M(t" f(D) = F(p +a) 
iii) Derivatives Mf) = 
(-1"" 72 Fe -n) 
iv) Derivative multiplied M(t" f(t) = (-1)" aa F(p) 
with a power 


v) Differential operator M(t £y f (0) = 
(-1)" p" F(p) 
vl) Integrals Mf fw du) =- Aen 
vii) mnthrepeated Integral MC, f(t) = 
M(filn1 fw) du) = 
(-1)!" poy F(p +n) 
vili) Convolution type J M f(t) * gO) = 
Mf. fw g(+) + dw = 
F(p) G(p) 
ix) ConvolutiontypeI] M(f(t)°g(t)) = 
Mf f(tu) g(u) du) = 
F(p) G0 — p) 


In this table, J,, f(t) denotes the nth repeated integral if f(t) defined by 
Inf) = [Ini fu)du. @ 


The package FractionalCalculus contains a function MellinTrans- 


form[], which is accessible by the template MQ5[o], where the lower 


placeholder represents the original variable and the upper placeholder 
represents the Mellin variable. The placeholder in [] contains the function 
which is transformed. The following examples demonstrate the application 
of the Mellin transform to different functions. 
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7.6.3.2 Examples for Mellin Transforms 


Before we discuss specific examples and applications of the Mellin 
transform, let us demonstrate some general properties. The scaling 
property of the Mellin transform for an arbitrary function f is given by 


Remove[f, $]; 
Assume[A> 0]; 


ME[£[At]] 


A® MELELE] | 


The result is identical with property i) of the above table. The shifting 
property follows from 


ME [t* £[t]] 


Me [£[t]] 


The following relations demonstrate that the Mellin transform is defined 
for powers: 


Me [£[t*]] 


for rational functions: 
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Me? [ELETI 


and for logarithms: 


ME [Log[t] £[t]] 


MellinTransform'”°?) LEE), Crp] 


Even general derivatives can be handled by the 
MellinTransform{]: 


function 


Me [O.£[t]] // FunctionExpand 


(1-p) Me’? [£[t]] 


Me [Oe,e£[t]] // FunctionExpand 


(Sep) Ele pwr? (een 


The results are special cases of the general formula from above. The 


Mellin transform of an integral is given by 


t 
Me Lf £[t] dr] // FunctionExpand 
) 


_ Me? [et] ] 
Pp 


The convolution properties viii) and ix) are 
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~ g[=] 
me[ | f£[t] dr] 
0 


Tt 


Me [£[t]] ME[g[t]] 


or 


meL | f[tt] g[t] dr] 
0 


Me[£[t]] MEP [g(t] ] 


These general properties are important in the treatment of the following 
applications. Before we discuss the capabilities of the Mellin transform in 
connection with integrals, integral equations, and differential equations, we 
demonstrate the application of the Mellin transform to special functions. 


The first example is concerned with the function f(t) = e~"' with n> 0. 


The Mellin transform of the exponential function follows by applying the 


operator M=[c] to the function 


M: [Exp[-n t]] 


n?’TI[p] 


This result is characteristic for an exponential function. In the Mellin 
space, this kind of function is represented by the I function divided by n to 
the power of p denoting the factor in the exponent. The function 
MellinTransform[] also tells us that the real part of n and the real part of 
Pp must be greater than zero. Another example of interest is given by the 
rational function 1 /(1 +f). The Mellin transform of this function is 
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mCsc[p 7] 


The Mellin transform of the generalized expression f(t) = 1/(1 +1)" 
follows from 


The result is represented by a fraction of I functions depending on the 
Mellin variable p and on the exponent n. The representation of the Mellin 
transform in terms of IT’ functions is very useful in connection with the 
solution of fractional differential equations. Another interesting example 
containing an exponential function is the Mellin transform of the function 
f@ = 1/(e' +1). The two Mellin transforms read 


1 


Pp + 
me | Exp[t] -1 


I'[p] Zeta[p] 


The result contains a special function the so-called Riemann ¢ function. 
The second representation of f(¢) with the — sign replaced by the + sign 
gives 


1 
Exp[t] +1 


me 


2° (-2+ 2") r[p] Zeta[p] 
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Here again, the IT function and the ¢ function are involved in the 
representation of the Mellin transform. An example containing 
trigonometric functions is 


Me: [Sin[ (1 - t)]] 


The result contains trigonometric as well as the [ function. The Mellin 
transform of the pure Cos[] is given by 


ME [Cos[w t]] 


-p/2 


(w2) cos[E*] rip] 


where w is a positive constant. Other special functions are logarithms. An 
example containing a logarithmic expression is given by 


Me [Log[1 + t]] 


mCse[(1+p) 7] r[-p] 
I[1l-p] 


These few examples demonstrate that the Mellin transform of special 
functions can be calculated in a direct way. We note that the package 
FractionalCalculus is capable to calculate all the Mellin transforms and 
more tabulated by Oberhettinger [7.20]. 


The inverse of the Mellin transform (InverseMellinTransform[]) in the 


package FractionalCalculus is accessible by the operator (M!)-[ ]. The 


subscript denotes the Mellin variable and the superscript denotes the 
original variable. The template of the inverse Mellin transform is 
connected with the function InverseMellinTransform[]. A _ simple 
example for an inversion is 
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(M-?) | [Gamma [p] ] 


which just delivers the exponential function. Another simple example is 


(M+) > [Gamma[p +n] ] 


et tn 


where n is a positive number. More complicated results follow from 


= Pp p 
(M 1) * [Gamma [1 +p] Gamma | —] Gamma [1 - =| 


1° 0, +}} | {} 
2,1 : {{ = 
v2 (Ge 2) pea S| a! 


2,1 
where 12 Trepresents a generalized hypergeometric function, so called 


Fox functions. A similar result follows from 


Gamma [1 +p] 
YY gc het neoanaan SE 
CN rey 
{{0, 23} | {} 
He - 7 
22 (00, ig ayy | a 
qT 


If we combine a I function and a trigonometric function in the Mellin 
space by a product, we find 
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(M"?) | [Gamma [p] Sin[p]] // FunctionExpand 


1,0 {} | 0) 245 
al t 7 
22 Oy ct h (10, 23}! 


Another rational expression of I functions and the Sin[] gives 


G 1 Si 
(tye amma[1+p] Sin[p] ] 
Gamma[p] Gamma[2 p] 
1,0 {} | {{0, 1}, {0, 2}, {0, +}} 
Pts 9 | : | 
{{1, 1}} | {{0, =}} 


These small selection of special combinations of I functions demonstrate 
that the inverse Mellin transform is a powerful tool to represent special 
functions. The package FractionalCalculus allows one to calculate a large 
number of special functions, including Fox's H function, which is a 
generalization of the Meijer G function. The following applications 
demonstrate how a Mellin transform can be used to solve specific 


mathematical and physical problems. 


7.6.3.3 Solution of Integrals 


Let us first discuss the solution of specific integrals of the form 


t 
F[t] -- | £[t] dt; 
0 


We first apply the Mellin transform on both sides of the equation: 
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io 
rl = ME[F[t] == | £[t] dt] 
0 


The result represents the solution of the integral in Mellin space. The 
inversion of the Mellin transform provides us with the integral value: 


(M+) 5 [x1] 


e/ Fi-pl Me? [£[t]] 
PLP 


under the condition that 0,F = f(t) and F(0)=0. An integral satisfying 
these conditions is given by fcos(r) dr. The Mellin transform according 


to the above formula gives for the integrand 


intM = Me**[Cos[t]] F[-p] /T[1-p] // Fullsimplify 


r[p] sin[ =" ] 


Since the inversion of the Mellin transform is essentially based on IT 
functions, we first have to represent the trigonometric function by [ 
functions. The package FractionalCalculus contains general 
transformation rules to carry out this transformation. Applying the rules 


TrigToGammaRules to the result intM, we find 


intM = intM /. TrigToGammaRules 


nI'[p] 


rti-¥) r[¥] 


containing only I functions. The inverse Mellin transform now follows by 
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(M"*) c [intM] // FunctionExpand // PowerExpand 


: 1 
FoxH::changedstructure : Warning: FoxH[ 
2vV0 


CPt Se Se ee op Oe 


This Fox H-function has a changed structure in comparison 
with the input. Please check your input data. 


Sin[t] 


The inverse Mellin transform is based on the definition of Fox's H 
function. This connection is always used by FractionalCalculus to reduce 
the result to a special function. The direct integration using Mathematica 


provides the same result: 


t 
i Cos[t] dt 
0 


Sin[t] 


Another integral also satisfying the above conditions is given by 


t oes 
i| ——————- dt // Timing 
0 1-(bt)* 


{6.81 Second, If|t > 0 && Re[a] >-1&&Re[f] >0, 


pita Fo i(1, aaa, 1+as8 b? t8] t ro 
1+a a ee 


Let us assume that the parameters a, 6, and b are positive constants: 


Assume[a> 0]; Assume[B > 0]; Assume[b > 0]; 


The Mellin transform of the integrand extended by the two I functions 


then follows as 
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vh = 


mest [ 


a 


———_] T'[-p] /T[1-p] /. TrigToGammaRules // 
1- (bt)é 


Simplify // Timing 


p-i-p-a nI[-p] r[ 1apte ] ree tepso-8 ] 


BIr[l -p] r[ 2-2 p28 ] rl ane peso ] } 


{ted Second, 


We represent the result by I functions because the inversion of the Mellin 
transform relies on this functions. The inversion of the Mellin transform 


gives 


(mt) © [vhf2I] // Timing 


{1.37 Second, = btenH,;'; | 
| (ly Ayn fee Si ({ bere, S}} Wh 
{{%, Z}} | {{O, 1}, {2e8, 2}} 


representing the result in terms of a Fox function. The direct integration 


with integrate has a different representation by hypergeometric functions 


ie Sohal 
{ —se 
o 1- (br)f 


Tf[t > 0 && Re[a] > -1&& Re[B] > 0, 


ther i[1, Sey ates, bf t 4] 13 ee d | 
T 
1l+a i 1-(bt)* 


Another application of the Mellin transform is the calculation of the 
moments of the Kohlrausch—William—Watts (KWW) distribution given by 


KWW[x ] := e@(P*)* 
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The moments of this distribution are given by 


t 
i t* KWW[t] dt 
0 


Tf[t > 0&&Re[B] >0&&B (1 Arg[b] 1) < or 
l+a 
B)y~"B~ Ata B +B t 
CF EY (ee ean 
B 0 


where a, £, and b are positive constants. 


Assume[a> 0]; Assume[B > 0]; Assume[b > 0]; 


The Mellin transform of the integrand follows by 


intM = M®*1[c* KWW[t]] T[-p] /T[1-p] 


Der eile ad 
Br[i-p] 


The inversion shows the coincidence with the direct method: 


res = (M*>) 5 [int] // PowerExpand // Simplify 


bit y[ 42, po tF] 


B 


7.6.3.4 Integral Equations 


Another application of the Mellin transform is the solution of integral 
equations of the convolution type. Let us consider the general form of a 
first-kind Fredholm convolution integral equation. The unknown function 
in this equation is denoted by /: 


7. Fractals 845 


firstFredholm = ip £[t] k[t t] dt ==g[t] 
0 


k and g are the kernel and the inhomogenity of the equation. If g equals 
zero, we have a homogenous integral equation of Fredholm type. The 
Mellin transform applied to this equation gives 


MellinFirstFredholm = M?[firstFredholm] 


MeP[£[t]] ME[k[t]] == Me [g(t] ] 


If we replace p by 1 — p in the above expression, we find a standardized 
representation of the Fredholm equation in Mellin space: 


standard = MellinFirstFredholm/.p>-p++l 


Me [f(t] ] MEP (k[t]] == MEP [g[t]] 


which is solved by 


solMellin = Solve[standard, Mf [f£[t]]] 


Me? [glt]] 
” MEP Tk [t]] }] 


The inversion of the Mellin transform gives us the formal solution of the 
integral equation: 
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(M-?) 5 [solMellin] 


e/ Me Iglt]] 1 


f[t Mt 
ELEN) s Me? [k[t]] 


The second type of convolution-type integral connected with a Mellin 
transform is given by the equation 


t 


00 kf — 
secondFredholm =g[t -- | £[t] dt 
0 15 


Again, k and g are the kernel and the inhomogenity, respectively. For this 
second kind of convolution equation, a Mellin transform provides 


MellinSecondFredholm = M?[secondFredholm] 


Me[g[t]] == Mel£[t]] ME[k[t]] 


We realize that for the second kind of equation, we do not need to shift the 
Mellin variable p in any way. Thus, we can proceed to solve the resulting 
relation to derive the solution in Mellin space: 


solMellin = Solve[MellinSecondFredholm, Me [f£[t]]] 


{{Me[£[t]] > 


The inversion of the relation gives the formal solution in original variables: 
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(M"?) 5 [solMellin] 


Thus, the algorithmic procedure to solve the two integral equations of 
convolution type must distinguish two cases of specific kernels. The 
characteristic is even more pronounced in the Mellin space, where the two 
cases differ by shifts in the Mellin variable from each other. A function 
which solves first Fredholm equations of convolution type has to be 
sensitive on this case. The following function realizes an automatic 


solution procedure for the two types of integral equation: 


Clear [ISolveFirstFredholm] 
ISolveFirstFredholm[equation_, depend _, independ ] := 
Block[{mtr, solmtr, p, k, vh, solexp}, 
mtr = MellinTransform[equation, independ, p]; 
vh = k == First[Cases[ 
Level[mtr, Depth[mtr]], a_. MellinTransform[ 
Apply[depend, {independ}], t_, p_] :>p]]; 
solexp = Solve[vh, k] /. k>p// Flatten; 
mtr = mtr /. solexp; 
solmtr = Solve[mtr, MellinTransform[ 
Apply[depend, {independ}], independ, p]]; 
InverseMellinTransform[solmtr, p, independ] ] 


The above lines carry out first the Mellin transform of the integral 
equation. In a second step, the Mellin variable for the unknown function is 
determined. If a shift in the Mellin variable occurs, this shift is eliminated 
by an appropriate transformation. Next, the solution in Mellin space is 
calculated. The last step transforms the solution in Mellin space to the 
original variables. The general integral equations are solved automatically 
by 
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ISolveFirstFredholm[firstFredholm, f, t] 


and the solution of the second integral equation follows from 


ISolveFirstFredholm[secondFredholm, f, t] 


Thus, we have a general procedure to solve first-kind Fredholm integral 
equations of the convolution type. A special example of the first 
convolution type is given by 


1 


equationl = ih Sin[t t] £[t] dt == —————_ 
0 (1 +t)” 


i £[t] Sin[t t] dt == (1+t)™ 
0 


where the kernel is given by a trigonometric function. The solution of this 
integral equation then follows by 
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solutionl = 
ISolveFirstFredholm[equationl, f, t] // FunctionExpand 


FoxH::changedstructure : Warning: a FoxH [ (ies aul {}} 1 
{{{>- sh {-l+n, 1}}, {}} » t , (2,1, 1, 2} ]: 

This Fox H-function has a changed structure in comparison 
with the input. Please check your input data. 


{{f£[t] > 
ae ((-1t) 2°? (it)77*? Cos[t] cse[(>+ +54) | 
1l-n n 1 : 
esc| ( 2 +o) x % (-2+n) (-1l+n) [v=ie 
Vit cse[(->+ z 


{1} 2 
ae cee 2) i eae | sin(n]] + 
SH ((-it)? (it)h? ese[(>- >] 2] 
ese[ (> (-1+n) - =] x] sin(t]}}} 


An example for the second convolution type integral equation is given by 
the equation: 


oe Cos[t Tt] 
equation2 = 0 == Exp[-t] -{ @[t] ———— dt 
0 1E 


Again, we replaced the kernel by a trigonometric function. The solution of 
this equation follows from 
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solution2 = ISolveFirstFredholm[equation2, ¢, t] 


FoxH: :changedstructure : 
1 1 1 
rs FoxH[ Rear, She ‘on , 


al 1 
tive shh ‘on ’ t ’ {1, 1, 1, 1} Vite 
This Fox H-function has a changed structure in comparison 
with the input. Please check your input data. 


Warning: 


2° 
[lel > tracey 


Another example is concerned with the Laplace integral equation 


equation3 - | @tt Ge] cle os ——__— 
0 (1 +t)” 


which has the solution 


solution3 = ISolveFirstFredholm[equation3, f, t] 


et tote 


{{£[t] Ser 


Replacing in equation3 the exponential constant E by an arbitrary number 
a, we get the equation 


equation4 = if crf? gel] ce ss ——=_ 
0 (1 +t)” 


The solution of this integral equation is 
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solution4 = ISolveFirstFredholm[equation4, f, t] 


at Log[a] (t Log[a])~**" } 


{{f[t] Tin] 


The second kind of Fredholm equations allows the occurrence of the 
unknown function outside of the integral. One of the two standard forms of 
the convolution-type Fredholm integral equations of the second kind is 
given by 


secondFredholml = f[t] ==g[t] +f k[t t] E£[t] dt 
0 


This equation also can be solved by means of a Mellin transform. 


secondF1Mellini = M?[secondFredholm1] 


Me [f(t] ] == ME[g([t]] +MeP [E(t] ] Me [k(t] ] 


The application of the Mellin operator to the equation shows that the 
Mellin transform of the unknown function f occurs with two different 
Mellin variables (i.e., with p and | — p). This is also true if we carry out 
the Mellin transform on the original equation a second time with the 
second Mellin variable chosen as | — p: 


secondF1Mellin2 = Mz; © [secondFredholm1] 


Me? [£[t]] == MEP [g(t] ] +Me[£[t]] MEP [k(t] ] 


Both transforms are equivalent and are the basis for the solution in Mellin 
space following from 
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solutionMellin = 
Solve[{secondF1Mellinl, secondF1Mellin2}, 
{MELE[t]], MEP [£[t]]}] 


Mela ltl] +MeP g(t] ] ME [k(t] ] 
-1+MEP[k[t]] ME[kK[t]] 
_MeP [git] ] +Me[glt]] Me P(kK[t]] 1} 
-1+MEP[k[t]] ME[k[t]] 


{{Me [£[t]] 


Me? [£[t]] 


The first formal solution follows from 


(M+) > [solutionMellin[1, 1]] 


“1 t Meta ltd) + Me? [g(t] ] MECK[t]] ] 


f£[t —(M 
[t] > -( dp -14+Me?[k[t]] Me[kK[t] ] 


and the second one from the inversion 


(M+) ;_,[solutionMellin[1, 2]] 


t p Me Pot] + Mig lt] ] MEP [k(t] ] 
a -14+ Me? [k[t]] Me [k[t]] 


The second solution is equivalent with the first solution. This is shown by 
replacing p by 1 — p in the second Mellin solution. Applying to the result 
the standard Mellin transform, we find 


(M+) 5 [solutionMellin[1, 2] /. p+1-p] 


ft t Melo lt]] + Me? [g(t] ] ME[K[t]] 


f[t] >-(M 
[Ele -14+ MEP [k[t]] ME [k[t]] 
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which is identical with the first solution. Thus, in an automatic solution 
procedure, we only need to treat one of the solutions in Mellin space. The 
second type of a second-kind Fredholm equation is given by 


£ 
t [t] ae 


secondFredholm2 = f[t] ==g[t] a k[ — 
0 T 


The Mellin transform of this equation shows that the Mellin representation 
of the unknown function occurs at both places with the same Mellin 
variable p: 


M: [secondFredholm2] 


Me (£[t]] == Me(g(t]] +ME[f[t]] ME[K[t] ] 


This indicates that the solution procedure of the first-kind Fredholm 
equations can be applied to this type of convolution equation. The formal 
solution follows from 


ISolveFirstFredholm[secondFredholm2, f, t] 


: Me tg [t] ] 
{fel elas ere ld 


Thus, the second type of Fredholm equations can be automatically solved 
by the following function: 
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Clear[ISolveSecondFredholm] 
ISolveSecondFredholm[equation , depend , 
independ ] :=Block[{mtr, solmtr, p, k, vh, solexp}, 
mtr = MellinTransform[equation, independ, p]; 
vh = Complement [ 
Union[Cases[Level[mtr, Depth[mtr]], 
a_. MellinTransform[Apply[depend, {independ}], 
Pexpaliee pilnapy ie 
If[Length[vh] >=1, 
mtrl = Map[ 
MellinTransform[equation, independ, #] &, vh]; 
solmtr = Solve[Flatten[{mtr, mtrl1}], 
{MellinTransform[Apply[depend, {independ}], 
independ, p], MellinTransform[Apply[depend, 
{independ}], independ, 1-p]}] // Flatten; 
solmtr = Cases[solmtr, 
Rule[MellinTransform[eq , t_,p],y___] :> 
Rule[MellinTransform[eq, t, p], y]], 
solmtr = Solve[mtr, 
MellinTransform[Apply[depend, {independ}], 
independ, p]] // Flatten; 
]; 


InverseMellinTransform[solmtr, p, independ] ] 


The formal solution of the second Fredholm equation then follows by 


ISolveSecondFredholm[secondFredholml, f, t] 


t; Mets [tI] +Me P(g ([t]] Me[k[t]] }} 


f[t -(Mt 
ae -14+ Me? [k[t]] ME[k[t]] 


This solution is actually a formal solution because the inverse Mellin 
transform fails to reduce to Fox functions. The main obstacle to prevent 
the inversion is the —1 in the denominator preventing a pure representation 
by I functions. At this point, we reach the limit of the solution class based 
on Fox functions. A specific example demonstrates this behavior more 


clearly. Let us examine the Fredholm equation of the second kind: 


7. Fractals 855 


roo} 


sFl= f£[t] == (reeyee f Sin[tt] f[t] dt 
0 


f[t] = 


I 
zr 
i 
Ae 
I 
Q 
4 
tees: 
Ht 
= 
Nn 
ty 
=} 
= 
my 
jon 
qt 


The solution should follow by 


ISolveSecondFredholm[sF1, f, t] // FunctionExpand 


2r[1-2] rip] Fi-p+a] " ae Vn r[i-p] r[ +8] rl-1+pta] 


afr anit! Tfla] [a] 
Cumerd -2r[1-2)]+nr[i- 2] }} 


The result demonstrates that the inverse Mellin transform is, in principle, 
possible if we extend the meaning of the Barns integral. However, the 
resulting function lies outside the class of Fox functions. The second type 
of second-kind Fredholm integral equation of convolution type has the 
formal solution 


ISolveSecondFredholm[secondFredholm2, f, t] 


Again, the problem is the same as in the first convolution type. A specific 


example shows the problem more clearly: 


1 co t , £[t] 
sF2 = £[t] == ———— +f sin[ —] 
(1 +t)” 0 t t 


dt 
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ISolveSecondFredholm[sF2, f, t] 


= ic n= 
(4) | —aegeaeegy | 
aoe es 
(e[e] a= By } 


The occurrence of the —1 in the denominator again prevents a solution by 
Fox functions. 


At this point, we reach the limits of special functions which serve to solve 
the second kind of Fredholm equations. If we are able to enlarge the 
definitions of special functions, we will have access to the explicit solution 
of the equation. However, so far we did not extend the package 
FractionalCalculus to this kind of special functions. 


7.6.4 Fractional Differential Equations 


The current chapter deals with the formulation and solution of fractional 
differential equations (FDEs). We introduce the solution procedure by 
recalling the techniques for linear ordinary differential equations (ODEs). 
The generalization of these techniques allows us to treat FDEs in different 
physical and chemical applications. We discuss relaxation phenomenons in 


complex systems like polymers and anomalous diffusion processes. 


7.6.4.1 Linear Ordinary Differential Equations 


Linear ordinary differential equations (ODEs) occur frequently in 
mathematical and physical applications. In general, a differential equation 
is an equation that relates an unknown function uw and one or more 
derivatives or differentials of that unknown function with respect to one or 
more independent variables. An ODE contains one or more unknown 
functions but depends only on one independent variable. A linear ODE is 
an equation containing the dependent variable and its derivatives linearly. 
Examples of ODEs are 


uO = F(t, u(t), (7.6.82) 
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representing a general first-order ODE for the unknown u. The order of a 
differential equation is the order of the highest derivative that appears in 
the equation. A linear first-order ODE consists of an equation containing u 
linearly. The most general linear first-order ODE is given by 


ee = a(t) u(t) + Bld), (7.6.83) 


where @ and # are real functions of t. This equation is connected with the 
Langevin equation if a(t) = —y and ((f) represents a random force. 


A general second-order equation is given by the relation 


uo = a(t, u(t), en ). (7.6.84) 


The most general linear second-order ODE is 


adult) 
“dre 


= a(t) 2 + pauH +O 


with a, 6, and x arbitrary functions of t. The next step in increasing the 
order is a general nth-order ODE like 


d" ult) du(t) a" u(t) ) (7.6.85) 


dt a iit, u(t), We 9 seg d t-! 
So far, we introduced the basic notations to classify ODEs. The question 
now is, how can we solve these equations? Before we start to solve the 
equations, let us recall the meaning of a solution of ODEs. To say that 
u = v(t) is a solution of the differential equation (7.6.85) on an interval K 


means that 
d" u(t) _ ZG, da"! u(t) 
7 = Alt, u(t), Lon SH ) 


is satisfied for every choice of ¢ in the interval K. In other words, a 
solution, when substituted into the ODE, makes the equation identically 
true for t in K. How these solutions, especially for linear ODEs, can be 
derived is the subject of the next section. The solution of general nonlinear 
ODEs and PDEs is discussed in the book by Baumann [7.21]. 
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7.6.4.2 Solution of ODEs by Integral Transforms 


In this subsection, we repeat the solution procedure of linear ODEs by 
means of integral transforms. Integral transforms are one of the efficient 
methods to solve initial value problems. In detail, we discuss the Laplace 
transform technique to solve ODEs. We study this kind of technique 
because it is also instrumental in solving fractional differential equations. 


One of the key properties of a Laplace transform is the reduction of a 
differential equation to an algebraic equation. This property is based on 
the transformation of differentials. The result is that an mth-order 
derivative f “(t) transforms like 


LOO) SF 1) Te eng NO). (7.6.86) 


The right-hand side of Eq. (7.6.86) consists of a term containing the 
Laplace transform of f, displayed as F(s), multiplied by the nth power of 
the Laplace variable s. The other terms contain the initial conditions 
represented by derivatives of f up to order n — 1. We observe that a single 
derivative transforms to a polynomial in the Laplace variable s. This 


behavior simplifies an ODE to a pure algebraic relation. 


The following example demonstrate this for a first-order ODE. The 
equation under discussion is the relaxation equation 


£0 =-+ fn (7.6.87) 


with tT, the relaxation time, a constant. Here, we denote the dependent 
variable by f to separate the mathematical representation of the equation 
from the physical meaning. This equation is represented in Mathematica by 


Remove [f]; 


1 
relaxation = 0 f[t] == -— f[t] 
t 
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The Laplace transform of the above equation follows with 


lrelax = Li[relaxation] 


_ elf [t] ] 


-£[0] +s “£e[f[t]] == : 


representing an algebraic equation in Laplace space. The Laplace 
transform of f is denoted by L£7[f[t]]. The solution of this equation in 
Laplace space follows by solving it with respect to the Laplace transform: 


lsol = Solve[lrelax, Li[f[t]]] // Flatten 


{2etete]] > —*)} 


The result shows that the solution in Laplace space is represented by a 
function depending on the Laplace variable s and the initial condition 
f(t =0). The solution in the original variables results by inverting the 


Laplace transform: 


sol = (£7), [L2[f[t]] /. 1sol] 


ec? f(0) 


The solution of the relaxation equation is thus given by an exponential 
multiplied by the initial condition f(0). 


This simple example contains the necessary steps to derive a solution for 
an initial value problem. We realize that the method presented is 
completely algorithmic and can be incorporated into a Mathematica 
function. The steps solving a linear initial value problem for an ODE in f 
can be summarized as follows: 


1. Laplace transform the ODE. 
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2. Solve the resulting algebraic equation to find the solution in the Laplace 
variable. 
3. Invert the Laplace transform to find the solution in original coordinates. 


These three steps are graphically shown in Figure 7.6.25. 


PDE 
solve 


(x,t) <—————————————— F(s) 
inverse L.T. 


Figure 7.6.25. Solution procedure based on the Laplace transform for linear ODEs. 


We start from a linear ODE A = 0 of arbitrary order. Laplace transform 
this equation and solve for the Laplace variable F. The inversion of the 
Laplace solution F delivers the solution of the ODE. These steps are 
always feasible if the coefficients of the derivatives and the functions are 
constants. If we encounter analytic coefficients, we end up with an ODE in 
Laplace space. 


So far, we demonstrated the solution technique for a homogeneous ODE. 
If the equation contains a nonvanishing inhomogeneity, the procedure 
works as well. We demonstrate this by extending the relaxation equation 
with an inhomogeneity representing an external force, for example. If we 
add to the right-hand side of the relaxation equation a term consisting of a 
power of t, 
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1 v-1 
inHomRelaxation = 0,f[t] == -— £[t] + | ————— 
Tt Gamma [v] 
; Belk oe 
£ ==- 
[t] t 6Thy] 


where v>0 is a real constant. The Laplace transform of the extended 


relaxation equation is 


lrelax = Lf [inHomRelaxation] 


Solving with respect to the Laplace variable, we find 


lsol = Solve[lrelax, Li[f[t]]] // Flatten 


s°’+f£[0] } 


{£2[£[t]] > ne 


The inversion of this result gives us the solution of the inhomogeneous 


relaxation equation: 


sole= (£7), (CRUE elile/elsol | 


The result is a solution consisting of the homogenous solution and a part 
determined by the inhomogeneity. This second part is independent of any 


initial condition. 


The three steps necessary to solve an initial value problem for ODEs are 
incorporated in the function FractalDSolve[]; this function not only 
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allows the solution of ODEs but is especially designed to solve linear 
fractional differential equations. The following line demonstrates the 
application of this function to the inhomogeneous relaxation equation: 


FractalDSolve[inHomRelaxation, f, t] 


{f = Function|[t, 


i 


et (-4+) “ (r[v] +(- 


The result is identical to the result derived in the interactive calculation. 
The function is also useful in solving linear fractional differential 
equations. The following subsection discusses the solution steps necessary. 


7.6.4.3 Linear Fractional Differential Equations 


Linear fractional differential equations FDEs are integral equations of the 
Volterra type. These equations have in common that one part of the 
equation consists of an integral operator of Riemann—Liouville or Weyl 
type. In general, a FDE is given by 


A(t, u, Dy’, u) = 0, (7.6.88) 


where v>0O denotes the order of the FDE. An important property of 
(7.6.88) is the linearity of the equation, meaning 


A(t, au+ Bv, Do'(aut Bv)) = 


o 4 (7.6.89) 
aA(t, u, Do’, u)+ PAC v, Dov), 


where a and f are constants and u = u(t) and v = v(t) are functions of the 
independent variable ¢. This property guarantees that the superposition 
principle holds and that we can apply integral transforms to solve FDEs. 
The solution steps are discussed in the following subsection. 
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7.6.4.4 Solution of FDEs by Integral Transforms 


This section describes a solution procedure of linear FDEs by using 
integral transforms. Integral transforms are efficient methods to solve 
initial value problems for fractional differential equations. In detail, we 
discuss the Laplace and Mellin transform technique to solve FDEs. 


One of the key steps in solving FDEs is the Laplace transform as a first 
step. This step allows us to reduce a fractional differential equation to an 
algebraic equation. We demonstrate this behavior by means of the 
generalized relaxation equation: 


Remove [f]; 
Assume[q > 0]; 


1 
Frelaxation = D2 ,.[f[t]] == is f[t] +a 


where g is a positive number and a is related to the initial condition. The 
Laplace transform of the above equation delivers the algebraic equation 


lrelax = L[Frelaxation] 


Conditions to solve the integral: 


-1+Re[q] <0 


The Laplace transform of f is denoted by L£7[f[t]]. The solution of this 
equation in Laplace space follows by solving the above equation with 


respect to the Laplace representation of f: 
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lsol = Solve[lrelax, Li[f[t]]] // Flatten 


‘ a 
{£é[f£[t]] Saree eae 


If we try to apply the inverse Laplace transformation, we end up with an 
integral which cannot be solved by Mathematica: 


(£71) e [LE [£[t]] /. 1801] 


However, the resolution of the problem is an additional application of a 
Mellin transform to the Laplace representation of the solution. If we, in 
addition, shift the Mellin variable, we gain 


melEq = Mf[1lsol] /. {0 -> -o+1, Rule -> Equal} 


This representation of the solution can be solved for the Mellin transform 
of f, providing us with the solution in Mellin space: 


smelEq = Solve[melEq, Mi[f[t]]] 


The inversion of the Mellin transform to the original independent 
coordinate t by means of the inverse Mellin transform delivers the solution 
in original coordinates: 
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solution = (m-t) © [smelEq] // PowerExpand // Flatten 


{£[t] s-at Eyi| -=]} 


The derived solution is given by the Mittag—Leffler function. This example 
contains the necessary steps to derive a solution for an initial value 
problem. We realize that the method presented is completely algorithmic 
and can be incorporated into a Mathematica function. The steps solving a 
linear initial value problem for an FDE in f can be summarized as follows: 


1. Laplace transform the FDE. 


2. Solve the resulting algebraic equation to find the solution in the Laplace 


variable. 


3. Apply the Mellin transform to find a representation of the Laplace 
solution in Mellin space 


4. Invert the Mellin transform to find the solution in original coordinates. 


These four steps are graphically shown in Figure 7.6.26. 


PDE 
solve 


v 
f(x,t) <—————————_- M.“s) 
inverse Mellin T. 


Figure 7.6.26. Solution steps for FDEs by means of Laplace and Mellin transforms. 
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The method used is restricted to those functions which can be represented 
by the inverse Mellin transform. In other words, the functions must be 
given by a Mellin—Barns integral. If this is not the case, the procedure fails 
to deliver a solution. However, the solution class derived by this method is 


much larger than the solutions derived by a simple Laplace transform. 


To summarize the solution procedure, we started from a linear FDE A = 0 
of arbitrary order. Laplace transform this equation and solve for the 
Laplace variable F. An _ additional transformation to a Mellin 
representation allows us to gain the solution by an inverse Mellin 
transform. The inversion of the Mellin solution delivers the solution of the 
FDE. These steps are always feasible if the coefficients of the derivatives 
and the functions of the FDE are constants. 


The three steps necessary to solve an initial value problem for FDEs are 
also incorporated in the function FractalDSolve[]; this function not only 
allows the solution of ODEs but is especially designed to solve linear 
fractional differential equations. The following line demonstrates the 


application of this function to the inhomogeneous relaxation equation: 


FractalDSolve[Frelaxation, f, t] 


{f£>Function[t, -at Eq,i[ -(t 02/4) "]]} 


The result is identical to the result derived in the interactive calculation. 


7.6.4.5 Fractional Relaxation Equation 


Relaxation processes are numerous in physical applications. One of the 
famous examples is the decay of a £ particle. The temporal behavior of 
such a decay is usually described by a first-order ordinary differential 
equations. This standard relaxation is also called a Debye process or 


Debye relaxation. 
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1 
relaxation = 0,f[t] + — f£[t] == 
t 


The solution of this equation follows by applying the function DSolve[] to 
the equation 


soll = DSolve[relaxation, f, t] 


{{£-+ Function|[{t}, e = C[1]]}} 


The same solution follows by applying the function FractalDSolve[]: 


sol2 = ¥Df[relaxation] 


{£+Function|t, et £[0] }} 


Both solutions contain a single constant C[1] and f[0] determining the 
initial condition of the relaxation process. The characteristic behavior of a 
relaxation process is the exponential decay in time, which is a straight line 
in a log plot of the function 
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LogPlot[f[t] /. sol2/. {£[0] +1, t31/2}, 
{t, .001, 10}, PlotStyle > RGBColor[0.996109, 0, 0], 
AxesLabel > {"t", "£"}]; 


0.1; 
0.001 ; 
0.00001 ; 


1.x10°7; 


t 
0 2 4 6 8 10 


The double logarithmic plot of a relaxation process shows a shoulder and a 
decay 


pll = LogLogPlot[f[t] /. sol2/. {£f[0] »1, t>71/2}, 
{t, .001, 10}, PlotStyle > RGBColor[0.996109, 0, O], 
AxesLabel > {"t", "£"}]; 


0.1 
0.001 
0.00001 


1.x 1077 


0.001 0.01 0.1 1 10 
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Both the log and the log-log plot show that a standard relaxation process 
decays very fast. The decay of a £ particle is a process determined by a 
single physical cause. However, relaxation processes in complex materials 
show a different characteristic pattern. The decay in complex materials is 
much slower than in the standard relaxation case. The asymptotic behavior 


observed can be described by a power law in time: 
f[@ « t4, with O<q<1. (7.6.90) 


The range of time extends over many decades. Examples are current 
distributions at rough blocking electrodes [7.22], charge-carrier transport 
in amorphous semiconductors [7.23], the dielectric relaxation of liquids 
[7.24], and relaxation of polymeric networks [7.25—7.27]. 


One of the nonstandard relaxation models to describe the behavior of 
complex materials assumes that the material has a memory. This memory 
includes the total decay for all times. The model discussed by 
Nonnenmacher [7.28] is applicable to models in which an integral net 
effect determines the relaxation process. The relaxation equation is 
generalized in such a way that a regular behavior at the initial time is 
incorporated into the model. The equation is given by a Fredholm integral 
equation of first kind expressed by RL differential operators. This kind of 
relaxation process assumes that the order of differentiation is a positive 


real number: 


Assume[q, q> 0]; 


The equation in terms of a RL operator reads 


e oe .[f£[t]] pee ieee hs ct £[t] 
= = + == 
2 ies Gamma[1 - q] 


The solution of this equation follows by applying FractalDSolve[] to the 


fractional equation 
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solf = ¥Dt[eq] 


{£>Function|t, £0 By | - (=) 1) 


The solution consists of a regular solution containing the initial condition 
fo. The generalized Mittag—Leffler function is nonstandard in 
Mathematica. The graphical representation of the Mittag—Leffler function 
for g = 1/3 and fo = | is given by 


pl2 = 
LogLogPlot[f[t] /. solf/. {£0 >1, t71/2, q>1/3}, 
{t, .001, 10}, PlotStyle + RGBColor[0.996109, 0, 1], 
AxesLabel > {"t", "£"}]; 


0.3 


t 
0.001 0.01 0.1 1 10 


Comparing the derived nonstandard relaxation result with the standard 


relaxation solution demonstrates 
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Show[p11, p12]; 


0.1 
0.001 
0.00001 


1.x 1077 


| 7 : 7 - 
0.001 0.01 0.1 1 10 
that a fractional relaxation process decays much slower than a Debye 


relaxation. This slower decay of a relaxation process is frequently 
observed in natural systems. 


7.6.4.6 Relaxation Oscillation Equation 


Next, let us consider an equation which interpolates between the ordinary 
relaxation and the oscillation equation. This kind of equation can be 
considered as a weak form of Newton's equation or a generalization of 
relaxation processes. The main assumption is that we restrict the order of 
differentiation to the interval 1 <q <2. 


Assume[1 < q && q <= 2] 


{{{q>1, qs 2}, {Im[q] +0, Re[q] > q}}} 


The equation under consideration is given by 
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relaxOscill = D3 ,.[f[t]] +£[t] == £[0] t 7° 


f[t] +De[f[t]] ==t-F* £[0] 


where we specialized the left-hand side of the equation to a power 
function. This equation is called the relaxation oscillation equation. 
Applying the fractional solution operator to this equation will deliver the 


solution 


sol = ¥D'[relaxOscill] 


{f>Function[t, t™* £[0] F[1-q-a] Eyi-.[ -t*]]} 


The result is a function determined by the generalized Mittag—Leffler 
function E,,(t) providing us the solution manifold for different 
differentiation orders g. Since the gamma function contained in this 
solution possesses singularities at different negative integer orders of the 
arguments, we have to choose the initial conditions in such a way that this 
singularity is eliminated. We introduce a scaled initial condition 
g(0)/T(1—q-a), allowing us to exclude the singularity from the 
functional domain. However, we must keep in mind that at certain values 
of q=1-a, negative integers singularities of the function occur. The 
following plot of the singularity free function shows the transition from 
relaxation behavior to oscillations. Depending on the fractional order qg, we 
observe that the total relaxation phenomenon is converted to a damped 


oscillation and then to an undamped oscillation if g increases from | to 2. 
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Plot3D[Evaluate[ 
£[t] /. sol /. £[0] ->g[0] /r[1-q-a]/.a->0.1/. 
g[0] ->1], {t, 0.1, 12}, {q, 1.0001, 2}, 
AxesLabel -> {"t", "q", "£ "}, PlotRange -> All, 
PlotPoints -> 35, Mesh -> False]; 


The following contour plot of the solution shows that the frequency 
decreases slightly if g is increased. However, this frequency shift 
disappears for q values near 2. 
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ContourPlot[Evaluate[ 
f[t] /. sol /. £[0] ->g[0]/r[1-q-a]/.a->0.1/. 
g[0] ->1], {t, 0.1, 12}, {q, 1.0001, 2}, Axes -> True, 
AxesLabel -> {"t", "q"}, PlotRange -> All, 
ColorFunction -> Hue, PlotPoints -> 35]; 


7.6.4.7 Semifractional Differential Equations 


Semifractional differential equations are those equations with differential 
order g=1/2. This kind of equation is in use in different fields of 
chemistry and physics such as electroanalysis, polymer physics, and so 
forth. A characteristic equation of relaxation type for a positive relaxation 
time constant 
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Assume[t > 0] 


{{{t> 0}, {Im[t] >0, Re[t] >t}}} 


is given by 
£0cE=? 
sf£DG = Dy’ [E[t] ] = Gamma[1/2] = eons E[t] 
£0 f[t] 2 
-—=- = - + OF [f(t] 
Vnvte vr 


The solution of this equation is derived by applying the fractional solution 
operator FD'; to the fractional differential equation: 


sDGSol = FDE[s£DG] 


1-casey [Eves 
er [2 ve eee[ve ain 


{f > Function|[t, £0 


The result is a function combining exponentials and error functions. A plot 
of the solution is given next for different relaxation constants T. 
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Plot3D[f[t] /. sDGSol /. {£0 ->1}, {t, 0, 4}, 
{t, 0.2, 1}, AxesLabel -> {"t", " 
Mesh -> False, PlotPoints -> 35]; 


cu LL id UN 


Another example for a semifractional equation is given by the driven 
rubber equation: 


drfDG=S[t] +70? Do? [S[t]] - ao Sin[wt] == 


1 


co? D.? [(®[t]] -Sin[t w] ap + S[t] 


==0 


This kind of equation is used to model the relaxation behavior of rubber 


driven by a harmonic external force. The solution of the equation is gained 
by application of the fractional solution operator: 
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solution = FDt[drfDG] 


; i 
{® + Function|t, 4 (1+! w2) 
{1} 1 2 72 
2JV2n Vtw F [3 syir £2 a? | 
, 
te Jw eres : 
oe 4 mt?) Vt? w2 


4n 
le S| eae 
_ {1} 
V2n Vw (ew? Fel ; -4 t? a? | 


The result is a combination of generalized hypergeometric functions. This 
solution demonstrates that a more or less simple initial equation results in a 
complicated structure of the solution. An example of the solution is shown 
in the following plot. The parameters used are T= 1, b= 1/3, ag = 1, and 
w=14, 
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Plot[Evaluate[S[t]/.solution/. 
{t->1, b->1/3, a) ->1, w->1.4}], 
{t, 0.1, 15}, AxesLabel -> {"t", "£"}]; 


Ha NAL. 


7.6.4.8 Anomalous Diffusion 


Many experiments indicate that diffusion processes usually do not follow 
the standard Gaussian behavior. In turn, the mean square displacement 
(r(t)”) oc t for a Gaussian process changes to (r(t)’) o t7/4v, where the 
anomalous diffusion exponent d,, differs from 2, the value for standard 
(Fickean) diffusion. The deviation from a linear dependence to a power 
law is an indication for anomalous diffusion. Anomalous diffusion in 
which the mean square distance between diffusing quantities increases 
slower or faster than linearly in time has been observed in different 
physical and biological systems from macroscopic surface growth to DNA 
sequences [7.29]. One of the first investigations discussing fractional 
diffusion goes back to Wyss [7.30] and O'Shaugnessy and Procaccia 
[7.31]. A method for solving fractional diffusion equations using Fox's H 
functions has been presented by Schneider and Wyss [7.32] and more 
recently by Metzler et al. [7.33]. 


The motivation for the anomalous diffusion equation being discussed now 
follows the ideas already outlined in the section on fractional relaxation 
starting from the standard model and generalizing the equation by 
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incorporating the initial condition. The standard (Fickean) diffusion 


equation in 1+1-dimensions reads 
0,0, t) = Axx pl, 0), (7.6.91) 


with an additional initial condition p(x, t = 0) = po(x). Equation (7.6.91) is 
given in a scaled representation where the diffusion constant is 
incorporated as a factor in the time variable. Let us start with the 


memory-diffusion equation 

A(x, 1) = [K(t-1) dx.p(%, 1) dt, (7.6.92) 
which has already been motivated and derived recently [7.34, 7.35]. 
Again, as in the case of relaxation, we assume that the memory kernel 


takes on a power law K(t) = Do t8-! /T(B) with 0 < 6 <1. Then we can 
express Eq. (7.6.92) by 


d:p = To fia-o*" d.pla, dr and B>0, (7.6.93) 
which, in terms of Riemann—Liouville operators Dj, ,, can be written as 

D),, P(e, 1) = Dy DoiGxx PC, 0). (7.6.94) 
Applying an integration Do, to both sides of Eq. (7.6.94), we find 

Pl, 1) = pox) = Do Do? (Axx pla, 0). (7.6.95) 


A differentiation of order (1+) of Eq. (7.6.95) replaces the integral 
representation of the generalized diffusion equation by its differential 


representation 
(1+) 
DY? ple ~ po) Top = Po Ar. AC% 0. (7.6.96) 


This generalized diffusion equation incorporates, in addition to the 
fractional differentiation in time, the initial condition po for the density p. 
Replacing the fractional order 1 + 6 by g, we find the simplified equation 


DS , p(x, t) — po(x) —— = Dy dxxplx, t) with 1<q<2. (7.6.97) 


The solution of Eq. (7.6.97) follows by the following steps. First, let us 
assume 


Assume[q > 0]; 
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Next, define the equation 


equation18 = 
= 
Dé, -fe[x, t]] - e0[x] ———— == Dp 6x,xe[x, t] 
r[1-q] 
t~4 09 [x] 
i a == (2,0) 
Dele Dop [x, t] 


Then, apply the Laplace transform to Eq. (7.6.97): 


equationl18Laplace = £2 [equation18] 


Conditions to solve the integral: 


-1+Re[q] <0 


s? £8 [o[x, t]] -s'*4 po[x] == LE[e'?'” [x, t]] Do 


The second step of the transformation consists of a Fourier transform of 


the equation in Laplace space: 


foulapgl2 = F*[equation18Laplace /. 
{LE [e[x, t]] > L[x], Ji [0x,xP[X, t]] > Ox,x L[x] ’ 
Po [x] > DiracDelta[x], C1l[x] > 0}] 


-2 91444 54 FE [L[x] ] == -k? fe [L[x]] Do 


The algebraic solution in Fourier and Laplace space follows by 


foulaploes2 = Solve[foulapg12, F* [L[x] ]] // Flatten 


2g ita 


{FF [L(x] ] Sa ake Dy, 
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The application of the inverse Fourier transform on this solution delivers 
the solution in spatial and Laplacian variables (x, s): 


laploes2 = 
Map[ (7+); [#] &, foulaploes2, {2}] /. L[x] > L2[p[x, t]] 


The result shows that the Laplace solution contains a stretched exponential 
multiplied by a power function. If we restrict our consideration to the 
half-space x > 0 and assume that the diffusion constant Dp is positive, 


Assume[x > 0, Cl >0]; 


we can represent the result in Mellin space as 


mellaploes2 = 
Mz [laploes2 /. Dp) > Cl // PowerExpand] // PowerExpand // 
Simplify 
2C1 “ks x Boge 2 r| sta 3 
{r[z] Me* lolx, t]] = } 


A shift of the Mellin variable by 1 gives us the Mellin solution 


melloes2 = Solve[mellaploes2 /. {z>1-2z, Rule > Equal}, 
M2 [p[x, t]]] // Flatten 


The inversion of the Mellin transform provides the final result: 
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solution = 


(M71) i [melloes2] /. Cl 3D) // PowerExpand // Simplify 


{} | {{1, 1}} 


(1. 2h] oo | 


1,0 2/q p-1/4 
H x Do 
2 1,1 [ . 


{elx, t] 


} 


The solution of the generalized diffusion equation (7.6.97) thus is 


1,0 
represented by a Fox's H function of H,; . This function is given by a 
series representation as follows: 


{} | (fly 1}) 


| x2/4 po/d ] 7" 
at . fide Sih {} 
(7.6.98) 
foo} 2: ¢ (1+k) 
> gq (-1)* x4 Do /2 
21 (1-3 (i+k)) k! t 
k=0 


A graphical representation of the solution is given in Figure 7.6.27. 


Solution of the fractional diffusion equation (7.6.97) in the series representation (7.6.98). 


Higus 8-27, The fractional exponent is g = 3/2 and Do = 1. 
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7.7 Exercises 


1. Use the Tree[] function to create different kinds of trees. Which 
option determines the shape of a tree? 


2. Extend the Koch[] function to other generators (e.g., the Peano 
curve). For a set of generators consult the book by Mandelbrot [7.4]. 


3. Examine the multifractal properties of a system with different 
numbers of probabilities and scaling factors. Determine the fractal 
dimensions Dg and D, and give a graphical representation of these 
dimensions versus the number of scaling factors. 


4. Use hexagonal lattices in the renormalization procedure for the 
percolation model. 


7.8 Packages and Programs 


7.8.1 Tree Generation 


This package allows one to generate a fractal tree. 


BeginPackage["Tree' "]; 
Needs ["Geometry Rotations "]; 
Clear[Tree, rotateLine, branchLine, createBranches] ; 


Tree::usage = "Tree[options ] creates a fractal 
tree. The options of 
the function Tree determine the form of the fractal 
created. Options are 

Generation -> 10, \n 

BranchRotation -> 0.65, \n 

BranchScaling -> 0.75, \n 

BranchThickness -> 0.7, \n 

OriginalThickness -> 0.07, \n 

BranchColor -> {RGBColor[0,0,0]} \n 
Example: Tree [BranchColor->11,BranchRotation->0.3] \n 
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11 is a list created in the package Tree."; 
(* --- global variables --- *) 


Generation: :usage; 
BranchRotation: :usage; 
BranchSkaling: :usage; 
BranchThickness: :usage; 
OriginalThickness: :usage; 
BranchColorn: :usage; 


Begin["" Private "]; 


(* --- rotate a line --- *) 
rotateLine[Line[{start_, end _}], angle ] := 
Line [{end, end + branchScaling* 
Rotate2D[end - start, angle Random[Real, 
{0.5,1.5}] 
1}; 


(* --- branch a line --- *) 
branchLine[Line[points ]] := 
{rotateLine [Line [points], 
branchRotation], 
rotateLine[Line[points], 
- branchRotation]}; 


(* --- change thickness --- *) 
branchLine [Thickness[th_]] := Thickness [th 
branchThickness] ; 


(* --- define color of a branch --- *) 
branchLine[RGBColor[r_, g_,b_]] := ( 
branchColor = RotateLeft [branchColor] ; 
First[branchColor] ); 


(* --- create branches --- *) 

createBranches [lines ] := Flatten[Map [branchLine, 
lines]]; 

(* --- options if Tree[] --- *) 


Options [Tree] = 
{ 
Generation -> 10, 
BranchRotation -> 0.65, 
BranchScaling -> 0.75, 
BranchThickness -> 0.7, 
OriginalThickness -> 0.07, 
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BranchColor -> 


{ 


RGBColor [0,0,0] } 


(* --- create a tree --- *) 
Tree [options ] := Block[ 


{generations, branchRotation, 
branchScaling, branchThickness, 
originalThickness, branchColor}, 


(* --- check options --- *) 
{generations, branchRotation, branchScaling, 
branchThickness, 


originalThickness, branchColor} =: 
{Generation, BranchRotation, BranchScaling, 
BranchThickness, 
OriginalThickness, BranchColor} /. {options} 
/. Options [Tree] ; 
(* --- iterate the functions and display the tree 
Soe 3) 
Show [ 
Graphics [ 
NestList[ 
createBranches, 


{ 
First [branchColor], 
Thickness [originalThickness], 
Line [{{0,0},{0,1}}] 
generations]], 
FilterOptions[Show, options], 
AspectRatio -> Automatic, 
PlotRange -> All1]]; 


(* --- filter for options --- *) 


FilterOptions[ command Symbol, opts] := 
Block[{keywords = First /@ Options [command] }, 
Sequence @@ Select [{opts}, 
MemberQ[keywords, First [#]]&]]; 
End[]; 
EndPackage [] ; 


(* --- an example of a color list --- *) 


11 = {RGBColor[0.5620000000000001, 0.236, 0.071], 
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RGBColor [0.5470000000000001, 0.229, 
0.06900000000000001], 

RGBColor[0.5, 0.21, 0.063], RGBColor[0.469, 
0.196, 0.0591, 

RGBColor[0.033, 0.281, 0.035], RGBColor[0.046, 
0.395, 0.05], 

RGBColor[0.055, 0.469, 0.059], 

RGBColor [0.07000000000000001, 0.602, 0.076], 

RGBColor[0.085, 0.727, 0.092], RGBColor[0.109, 
0.937, 0.118], 

RGBColor[0.013, 0.75, 0.028]}; 


7.8.2 Koch Curves 


This package generates fractal curves of a different kind. 


BeginPackage ["Koch™"] ; 


Clear [Koch, VKoch, WKoch, QKoch, Quad, NGon, docurve, Fracta 
1,FaktalPlot] ; 


Needs ["Geometry Rotations "]; 


Fractal::usage = "Fractal[curve String, options] 
creates a graphical 

representation of a fractal curve. The type of curve 
is determined by 

the first argument. A list of available curves is 
obtained by calling 

Fractal [List] or Fractal[Help]. The second argument 
allows to change the 

options of the function. The default values are 
Generations -> 3, 

Angle -> Pi/6 and Corners -> 6."; 


Generations: :usage; 
Angle: : usage; 
Corners: :usage; 


Begin["" Private "]; 


(* --- generator of the Koch curve --- *) 


(* a / Nis a) 


Koch [Line[{StartingPoint_,EndPoint }]]:=Block[{fActor 
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, angle, liste={}}, 
fActor = 1/3; 
angle = Pi/3; 
11 = StartingPoint; 
12 = StartingPoint+(EndPoint - 
StartingPoint) *fActor; 
AppendTo [liste,Line[{11,12}]]; 
He Wee Be 
12. = 12 + 
Rotate2D [EndPoint -StartingPoint, -angle, {0,0}]*fActor; 
AppendTo [liste,Line[{11,12}]]; 
fre i a 
12 = 12 + 
Rotate2D [EndPoint -StartingPoint, angle, {0,0}]*fActor; 
AppendTo [liste,Line[{11,12}]]; 
1d) 2s 
d2 = 124 
Rotate2D [EndPoint -StartingPoint,0,{0,0}]*fActor; 
AppendTo [liste, Line[{11,12}]] 
liz 


(* --- generator of an altered Koch curve --- *) 
(* /\ *) 


VKoch [Line [{StartingPoint ,EndPoint }]]:=Block[{fActo 
r, angle, liste={}}, 
fActor = 1/3; 
angle = Pi/3; 
11 = StartingPoint; 
12 = StartingPoint+(EndPoint - 
StartingPoint) *fActor; 
AppendTo [liste,Line[{11,12}]]; 
be eas ea 
12 = 12 + 
Rotate2D [EndPoint -StartingPoint,0,{0,0}]*fActor; 
AppendTo [liste,Line[{11,12}]]; 
Ba leet eA 
12 =. 12 4 
Rotate2D [EndPoint -StartingPoint, -angle, {0,0}]*fActor; 
AppendTo [liste,Line[{11,12}]]; 
diy = 42 
12 = 12 + 
Rotate2D [EndPoint -StartingPoint,angle, {0,0}]*fActor; 
AppendTo[liste, Line[{11,12}]] 
5 


(* --- generator of the Koch curve with variable 
base angle --- *) 
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Wkoch [Line[{StartingPoint ,EndPoint }]]:=Block[{fActo 
xr, liste={}}, 
fActor = 1/(2*(14+Cos [angle] )); 
11 = StartingPoint; 
12 = StartingPoint+(EndPoint - 
StartingPoint) *fActor; 
AppendTo [liste,Line[{11,12}]]; 
di = 23 
12 = 12 + 
Rotate2D [EndPoint -StartingPoint, -angle, {0,0}]*fActor; 
AppendTo [liste,Line[{11,12}]]; 
Lie E23 
12 = 12 + 
Rotate2D [EndPoint -StartingPoint, angle, {0,0}]*fActor; 
AppendTo [liste,Line[{11,12}]]; 
a ie Cees BP 
12s 1L2) + 
Rotate2D [EndPoint -StartingPoint,0,{0,0}]*fActor; 
AppendTo [liste, Line [{11,12}]] 
Ne 


(* --- generator of the rectangular Koch curve --- *) 
(* 


al * 


QKoch[Line[{StartingPoint ,EndPoint }]]:=Block[{fActo 
r, angle, liste={}}, 
fActor = 1/4; 
angle = Pi/2; 
11 = StartingPoint; 
12 = StartingPoint+(EndPoint - 
StartingPoint) *fActor; 
AppendTo [liste,Line[{11,12}]]; 
dba = IbA}p 
E22 et 
Rotate2D [EndPoint -StartingPoint, -angle, {0,0}]*fActor; 
AppendTo [liste,Line[{11,12}]]; 
dLal, = IlA8 
22 
Rotate2D [EndPoint -StartingPoint,0,{0,0}]*fActor; 
AppendTo[liste,Line[{11,12}]]; 
dba > IbAp 
2 Borel ee, 
Rotate2D [EndPoint -StartingPoint,angle,{0,0}]*fActor; 
AppendTo [liste,Line[{11,12}]]; 
ilal, = ILAAp 
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12 = 12 + 

Rotate2D [EndPoint -StartingPoint, angle, {0,0}]*fActor; 
AppendTo [liste,Line[{11,12}]]; 
a Be eee 
12 2 12.+ 

Rotate2D [EndPoint -StartingPoint,0,{0,0}]*fActor; 
AppendTo [liste,Line[{11,12}]]; 
Hi ee Be 
12. = 12 + 

Rotate2D [EndPoint -StartingPoint, -angle, {0,0}]*fActor; 
AppendTo [liste,Line[{11,12}]]; 
fre i a 
12 = 12 + 

Rotate2D [EndPoint -StartingPoint,0,{0,0}]*fActor; 
AppendTo [liste, Line [{11,12}]] 
lis 


(* --- generator for a rectangular curve --- *) 
(* 
ae | TL toe *) 
Quad [Line[{StartingPoint ,EndPoint }]]:=Block[{fActor 
, angle, liste={}}, 
fActor = 1/3; 
angle = Pi/2; 
11 = StartingPoint; 
12 = StartingPoint+(EndPoint - 
StartingPoint) *fActor; 
AppendTo [liste,Line[{11,12}]]; 
di = 124 
12 = 12 + 
Rotate2D [EndPoint -StartingPoint, -angle, {0,0}]*fActor; 
AppendTo [liste,Line[{11,12}]]; 
i ie te 
ul eae ee 
Rotate2D [EndPoint -StartingPoint,0,{0,0}]*fActor; 
AppendTo [liste,Line[{11,12}]]; 
i Fe Dees — es 
12 = 12 + 
Rotate2D [EndPoint -StartingPoint, angle, {0,0}]*fActor; 
AppendTo [liste,Line[{11,12}]]; 
Lae 2% 
12 = 12 4 
Rotate2D [EndPoint -StartingPoint,0,{0,0}]*fActor; 
(* 12 = 12 + EndPoint*fActor;*) 
AppendTo [liste, Line [{11,12}]] 
The 


890 


7.8 Packages and Programs 


(* --- generator for a N gon --- *) 


NGon [Line [{StartingPoint ,EndPoint }]]:=Block[{11, 
12, angle, liste={}}, 
angle = 2*Pi/corners; 
11 = StartingPoint; 
12 = StartingPoint+(EndPoint - StartingPoint) ; 
AppendTo [liste,Line[{11,12}]]; 


Do[ 
Ae ee EQ 
IZ = 12 4 


Rotate2D [EndPoint -StartingPoint,k*angle, {0,0}]; 
AppendTo [liste,Line[{11,12}]], 
{k,1,corners-1}]; 
liste 
lis 


(* --- calculate the higher iterations --- *) 
docurve [Type ,Linie ]:=Block[{}, 
Flatten [Map [Type, Linie] ] 
1; 


(* --- plot of a line sequence --- *) 


FractalPlot [x _]:=Show[Graphics [x] ,AspectRatio->Automa 
tic]; 


(* --- options for Fractal[] --- *) 


Options [Fractal] := 
Generations -> 3, 
Angle -> Pi/6, 
Corners -> 6 


(* --- create the fractal curve --- *) 
Fractal[curve _, options ]:=Block[{generations, 
angle, corners}, 

(* --- check options --- *) 


{generations,angle,corners} = 
{Generations, Angle, Corners} 
/. {options} /. Options [Fractal] ; 
(* --- menu for the different fractal curves --- *) 
If[curve == "List" || curve == "Help", 
Print[" "]; 
Print[" --------- available curves --------- WN A 
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Print[" Koch : Koch curve"]; 
Print[" QKoch : rectangular Koch curve"] ; 
Print[" VKoch : altered Koch curve"] ; 
Print[" WKoch : variable angle Koch curve"]; 
Print[" Quad : rectangular curve"]; 
Print[" Star : Koch star"]; 
Print[" Square : Koch square"]; 
Print[" N-gon : Koch N gon"]; 
Print[" Mixture: 2 x Koch and 2 x QKoch"]; 
Print[" Random : random generation"]]; 
(* --- plot the Koch curves --- *) 
If[curve == "Koch" | | 
curve == "QKoch" | | 
curve == "VKoch" | | 
curve == "WKoch" | | 
curve == "Quad", 
(* --- ToExpression transforms a string to an 
expression --- *) 
k1 = 
ToExpression [curve] [Line[{{0,0},{1,0}}]]; 
Do[ 


k1 = docurve [ToExpression[curve],k1], 
{k,1,generations}]; 
FractalPlot [k1] 
We 
(* --- plot a Koch star --- *) 
If[curve == "Star", 
corners = 3; 
kl = NGon[Line[{{0,0},{1,0}}]1; 
Do[ 
k1 = docurve[Koch,k1], 
{k,1,generations}]; 
FractalPlot[k1] 
1G; 
(* --- plot a Koch square --- *) 
If[curve == "Square", 
corners = 4; 
kl = NGon[Line[{{0,0},{1,0}}11; 
Do[ 
kl = docurve[Koch,k1], 
{k,1,generations}]; 
FractalPlot[k1] 
liz 
(* --- plot a Koch N gon --- *) 
If[curve == "N-gon", 
k1 = NGon[Line[{{0,0},{1,0}}1]; 
Do[ 
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k1 = docurve [Koch,k1], 
{k,1,generations}]; 
FractalPlot[k1] 
lie 

(* --- plot a mixture of Koch curves --- *) 

If[curve == "Mixture", 

k1 = Koch[Line[{{0,0},{1,0}}11]; 
k1 = docurve [Koch,k1]; 
k1 docurve [QKoch,k1] ; 
k1 docurve [QKoch,k1] ; 
FractalPlot[k1] 
liz 

(* --- plot a random sequence of Koch curves --- *) 

If[curve == "Random", 
listec ={Koch, QKoch, VKoch, Wkoch, Quad, NGon}; 
k2 = Random[Integer, {1,6}]; 
k3 = Random[Integer,{1,6}]; 
If[k2 == || k3 == 6, corners = 
Random [Integer, {3,12}]]; 

namel1 listec[[k2]]; 
name2 = listec[[k3]]; 
k1 = namel[Line[{{0,0},{1,0}}]]; 
k1 = docurve [namel1,k1] ; 
Do[ 
k1 = docurve [name2,k1], 
{k,1,generations-1}] ; 
FractalPlot[k1] 
lie 


5 
End[] ; 
EndPackage [] ; 


7.8.3 Multifactals 


The multifractal package provides functions for the determination of 
multifractal spectra. 


BeginPackage["MultiFractal™"]; 
Clear[Dq, Tau, Alpha, MultiFractal]; 
MultiFractal: :usage = 


"MultiFractal[p List,r List] calculates the 
multifractal spectrum D q for a model 
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based on the probabilities p and the 
scaling factors r. This function plots 

five functions Tau(q), D_q(q), 
Alpha(q), £(q) and £(Alpha)."; 


Begin[" Private "]; 
(*---calculate the multifractal dimensions---x«) 


Dq[p_ List, r List] :=Block[{11, 12, listrg= {}}, 
(*---length of the lists---*)11 = Length[p]; 
12 = Length[r]; 
If[11 =: 12, 
(*---variation of q and determination of D_ q---*) 
Do[gl1 = Sum[p[[j]] “ar[[j]]* ((q-1) Dfractal), 
{j, 1, 11}] -1; 
result = FindRoot[gll1 = 0, {Dfractal, -3, 3}]; 
result = -Dfractal /. result; 
(*---collect the results in a list---*) 
AppendTo[listrg, {q, result}], 
{q, -10, 10, .101}], Print[" "]; 
Print[" Lengths of lists are different!"]; 
listrg = {}]; 
listrg]; 


(*---calculate Tau---*) 


Tau[result List] :=Block[{11, listtau= {}}, 
(*---lengths of the lists---*) 
11 = Length[result] ; 
(*---calculate Tau---+*)Do[ 
AppendTo[listtau, {result[[k, 1]], result[[k, 2]] 
(1-result[[k, 1]])}]., {k, 1, 11}]; 
listtau]; 


(*---Legendre transform---+*) 


Alpha[result List] := Block[{11, dq, listalpha= {}, 
listf = {}, listleg = {}, mlist = {}, pll1, p12}, 
(*---lengths of the lists---*) 
11 = Length[result] ; 
(*---determine the differential dq---*) 
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dq = (result[[2, 1]] -result[[1, 1]]) 2; 
(*---calculate Alpha by numerical 
differentiation---*) Do[ 
AppendTo[listalpha, {result[[k, 1]], 
(result[[k+1, 2]] -result[[k-1, 2]]) / 
dq}], {k, 2, 11-1}]; 
12 = Length[listalpha] ; 
(*---calculate f and 
collect the results in a list---«x)Do[ 
AppendTo[listf, {result[[k, 1]], -(result[[k, 1]] 
listalpha[[k, 2]] -result[[k, 2]])}]; 
listalpha[[k, 2]] =-listalpha[[k, 2]], 
{k, 1, 12}]; 
(*---list of the Legendre transforms---*x) 
Do[AppendTo[listleg, 

{listalpha[[k, 2]], listf£[[k, 2]]}]; 
AppendTo[mlist, listf[[k, 2]]], {k, 1, 12}]; 
(*---plot f and alpha versus q---*)pll1= 
ListPlot[listalpha, PlotJoined > True, AxesLabel > 

{"q", "a"}, Prolog > Thickness[0.001]]; 
p12 = ListPlot[listf, PlotdJoined—> True, AxesLabel > 
{"q", "£"}, Prolog > Thickness[0.001]]; 
Show[{pl1, p12}, AxesLabel ~ {"q", "a,£"}]; 
(*---plot the Legendre 
transform f versus alpha---+*) 
ListPlot[listleg, AxesLabel > {"a", "£"}]; 
(*---print the maximum of f=D_0---*«) 
maxi = Max[mlist]; 
ireakayelp Ui) p 


Print[" DO = ", maxij]; 
(*---calculate the multifractal properties---x«) 


MultiFractal[p List, r List] := 
Block[{listDq, listTau}, 

(*---determine D_ q---*)listDq=Dq[p, r]; 

ListPlot[listDq, PlotJoined > True, AxesLabel > 
{"q", "Dg"}, Prolog > Thickness[0.001]]; 

(*---calculate Tau---*) listTau = Tau[listDq]; 

ListPlot[listTau, PlotJoined > True, AxesLabel > 
{"q", "t"}, Prolog > Thickness[0.001]]; 

(x---determine the Hoelder exponent---*x) 
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Alpha[listTau] ]; 
End[]; 
EndPackage[] ; 


7.8.4 Renormalization 


This package supports the calculations of renormalization. 


BeginPackage["Renormalization "]; 
Clear[f£, Perit, Nc, Dim, RenormPlot] ; 


Nc::usage = "Nc[n_ ] determines the mean number of 
atoms at the probability 

p_c if m is changed in the range 1 <= m <= n-2. The 
size of the block is 

determined by n."; 


Dim::usage = "Dim[n_] calculates the fractal 
dimension for the critical 

probability p _c. The dimension depends on m where 1 
<= m <= n-2, n is 

the size of the block used."; 


Perit::usage = "Pcrit[n ] determines the critical 
probability for ann xn 

grid under the variation of m where m is the number 
of empty locations in the 

grid. The range of mis 1 <= m <= n-2."; 


RenormPlot::usage = "RenormPlot[n ,typ String] plots 
the functions Nc, Dim 

or Perit."; 

Begin["" Private "]; 


(* --- auxilary function --- *) 


f[p_,n_,m_]:= 
Sum[Binomial [n, i] *p* (n-i) * (1-p) “i, {i,0,m}]; 


(* --- mean number of particles on a grid --- *) 


Ne[n_]:= Block[{p, ncliste={}}, 
p = Pcrit[n]; 
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Do[ 
AppendTo[ncliste, 


Sum [Binomial [n, i] * (n-i) *p[[k]]* (n-i-1) * (L-p[[k]]) “i, 
{i,0,k}]]l, 
{k,1,n-2}1; 
nceliste 
1; 
(* --- fractal dimension at the critical probability 
Se >) 


Dim[n_]:= N[Log[Nc[n]]/Log[Sqrt[n]]]; 


(* --- critical probability on an xn grid --- *) 


Perit[n_]:=Block[{ph, p, erg, ergl, gl1, plistel={}}, 


TEin 3 2, 
Do[ 
gll =p - flp,n,il; 
(* --- solution of the fixpoint equation --- *) 


erg = NSolve[gli==0,p]; 
erg = p /. erg; 

(* --- use only real solutions --- *) 
ergl = {}; 


Do [If [Head [erg[[k]]]==Real,AppendTo[ergl,erg[[k]]]], 
{k,1,Length [erg] }]; 
(* --- looking for solutions between 0 and 1 
Serer )) 
erg = Sort[ergl1]; 
ergl = {}; 
Do[If[erg[[k]] > 0.0, 
AppendTolergl, erg[[k]] 1] 1], 
{k,1,Length [erg] }]; 
ph = Min[erg1]; 
AppendTo[plistel,ph], 
{i,1,n-2}1, 
Print [" Hil p 
Print[" choose n > 2 "]]; 
plistel]; 


(* --- plot the results --- *) 


RenormPlot[n_,typ String] :=Block[{}, 
If[typ == "Pcrit", 
ListPlot [Perit [n] ,AxesLabel->{"m","pc"}], 
If[typ == "Ne", 
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ListPlot [Nc [n] ,AxesLabel->{"m","Ne"}], 
If[typ == "Dim", 
ListPlot [Dim[n] ,AxesLabel->{"m","D"}], 
Print[" "]; 
Print[" Wrong key word use: "]; 
Print[" Pcrit, Ne or Dim. i) p 
Print[" "] 


] 
] 
1]; 
End[]; 
EndPackage [] ; 


7.8.5 Fractional Calculus 


Define the global variable $FractionalCalculusPath in such a way that the 
location of the package FractionalCalculus is uniquely defined. 


$FractionalCalculusPath = 
$AddOnsDirectory <> "/Applications/FracCalc/"; 
AppendTo[$Path, $FractionalCalculusPath] ; 


Load the package: 


<< FractionalCalculus.m 


——> FractionalCalculus ready <—— 


© Gerd Baumann, Norbert Siidland 1996-2004 


<< Integral.m 


—— "Integral.m" is available. -— 


NotebookClose[foxtitle] ; 


A 
Appendix 


This appendix contains some information on the installation of the 
accompanying software and a short description of the functions defined in 
the packages. It also summarizes the Mathematica functions used in the 
book. 


A.1 Program Installation 


The book is accompanied by a CD containing all Mathematica notebooks. 
These notebooks can be used as interactive text. The notebooks are linked 
to a style file called ScriptStyle.nb and Vortrag.nb. You should copy these 
two files to the location where the additional style files are stored. For 
example, on a PC, the — style’ files are located at 
C:\\WINDOWS\Profiles\All_Users\Applications\Mathematica\SystemFiles\ 
FrontEnd\StyleSheets. 


In addition to the notebooks, there is the package EulerLagrange which is 
delivered with the text. The package is used in Chapter 2. In this chapter 
you have to change the path name in the sections Packages and Programs. 
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You can either use the package from the CD or you can copy the package 
to your preferred location. In any case, you have to change the path name 


of the package. 


Other packages supporting calculations of the text are located in the 
section Packages and Programs in the appropriate notebook. For these 
packages, there is no need to set any path names. They are ready to use for 


your calculations. 


A.2 Glossary of Files and Functions 


This section contains a short description of all functions defined in the 
packages of this book. The packages are alphabetically listed. 


A.2.1 Anharmonic Oscillator 


Anharmonic oscillator of quantum mechanics. 


AsymptoticPT 


AsymptoticPT[N_,kin_] determines the asymptotic approximation for 
|x|-co for the continuous case of eigenvalues in a Pdéschel—Teller 
potential. The function yields an analytical expression for | b(k)|*. The 
variables Transmission and Reflection contain the expressions for the 
transmission and the reflection coefficients. wla and w2a contain the 


approximations for x > —co and x > oo, respectively. 


PoeschelTeller 


PoeschelTeller[x_, n_, N_] calculates the eigenfunction of the 
Péschel—Teller potential for discrete eigenvalues. N determines the depth 
of the potential Vo Sech(x) by Vo =N(N +1). n fixes the state where 
O<n <N. 


e PlotPT 
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PlotPT[kini_,kend_,type_] gives a graphical representation of the 
reflection or transmission coefficient depending on the value of the 
variable type. If type is set to the string 7, the reflection coefficient is 
plotted. If type is set to ¢, the transmission coefficient is represented. This 


function creates five different curves. 


Reflection 


Variable containing the reflection coefficient. The independent variables 
are N and k. 


e Transmission 


Variable containing the expression for the transmission coefficient. The 


independent variables are N and k. 
e wla 


The variable contains the analytic expression for the asymptotic 


approximation for x > —co. 
e w2a 


The variable contains the analytic expression for the asymptotic 


approximation for x > oo. 


A.2.2 Boundary Value Problem of Electrodynamics 


Boundary value problem of electrodynamics. 
e Potential 


Potential[boundary_,R_,alpha_,n_] calculates the potential in a circular 
segment. Input parameters are the potential on the circle, the radius R of 
the circle, and the angle of the segment of the circle. The last argument n 
determines the number of expansion terms used to represent the solution. 


902 


1.2 Glossary 


A.2.3. Central Field Problem in Quantum Mechanics 


Quantum mechanical description of motion in a central field. 
Angle 


Angle[theta_, phi_, 1_, m_] calculates the angular part of the wave function 
for an electron in the Coulomb potential. The numbers L and m denote the 
quantum numbers for the angular momentum operator. @ and ¢ are the 
angles in the spherical coordinate system. 


AnglePlot 


AnglePlot[pl_,theta_,phi_] gives a graphical representation of the function 
contained in pl. The range of representation ism < ¢<5a/2 and0<@<z 
. @ is measured with respect to the vertical axis. This function is useful for 


plotting the orbitals and the angular part of the eigenfunction. 
Orbital 


Orbital[theta_,phi_,]_,m_,type_String] calculates the superposition of two 


wave functions for the quantum numbers mj=+m and m;=-—m. The 
variable type allows the creation of the sum or the difference of the wave 
functions. The string values of type are either plus or minus. 


Radial 


Radial[ro_, n_, 1, Z_] calculates the radial representation of the 
eigenfunctions for an electron in the Coulomb potential. The numbers n 
and / are the quantum numbers for the energy and the angular momentum 
operator. Z specifies the number of charges in the nucleus. The radial 


distance between the center and the electron is given by p. 


A.2.4 Harmonic Oscillator in Quantum Mechanics 


a 
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a[psi_, xi_:x] is annihilation operator for eigenfunction Ww. The second 
argument specifies the independent variable of the function w. 

e across 


across[psi_, Xi_:x] is creation operator for eigenfunction Ww. The second 
argument specifies the independent variable of w. 


e Psi 


Psi[xi_,n_] represents the eigenfunction of the harmonic oscillator. The 
first argument & is the spatial coordinate. The second argument n fixes the 


eigenstate. 
e wel 


wel[xi_,n_] calculates the classical probability of locating the particle in 
the harmonic potential. The first argument € is the spatial coordinate and n 


determines the energy given as the eigenvalue. 
e wqm 


wqm[xi_,n_] calculates the quantum mechanical probability for an 
eigenvalue state n. The first argument represents the spatial coordinate. 


A.2.5 Korteweg-de Vries Equation 


Multisoliton solution of the Korteweg-de Vries equation. 
e Soliton 

Soliton[x_,t_,N_] creates the N soliton solution of the KdV equation. 
e PlotKdV 


PlotKdV[tmin_,tmax_,dt_,N_] calculates a sequence of pictures for the N 
soliton solution of the KdV equation. The time interval of the 
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representation is [tnin, tmax]. The variable dt measures the length of the 


time step. 


A.2.6 Korteweg de Vries equation and its derivation 


Derivation of the Korteweg de Vries equation. 


e Equation 


Equation[n_] calculates the evolution equation up to order n. 


A.2.7 Korteweg-de Vries Equation and Integrals of Motion 


Integral of motion of the Korteweg—de Vries equation. 


e Gardner 


Gardner[N_] calculates the densities of the integrals of motion for the KdV 
equation using Gardner's method. The integrals are determined up to the 


order N. 


A.2.8 Korteweg-de Vries Equation Numerical Solution 


Numerical solution of the Korteweg—de Vries equation. 


e KdVNintegrate 


KdVNiIntegrate[initial_,dx_,dt_,M_] carries out a numerical integration of 
the KdV equation using the procedure of [3.5]. The input parameter 
initially determines the initial solution in the procedure (e.g., —6 Sech?(x)). 
The infinitesimals dx and dt are the steps with respect to the spatial and 
temporal directions. M fixes the number of steps along the x-axis. 
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A.2.9 Koch Curves 


Fractal curves. 


e Fractal 


Fractal[curve_String, options___] creates a graphical representation of a 
fractal curve. The type of curve is determined by the first argument. A list 
of available curves is obtained by calling Fractal[List] or Fractal[{Help]. 
The second argument allows changing the options of the function. The 


default values are Generations — 3, Angle > 2/6 and Corners > 6. 


A.2.10 Light Beam Near a Planet 
The bending of a light beam near a planet is discussed. 
e Deviation 


Deviation[radius_,mass_] calculates the numerical value of the light 
bending in a gravitational field of a star with mass M in a distance radius 


of the center. 


e Orbit 


Orbit[radius_,mass_] plots the orbit of a light beam near a mass in the 


distance radius. The calculation is done in Schwarzschild metric. 


A.2.11 Multifractal Properties 
Multifractal properties of point sets. 
e MultiFractal 


MultiFractal[p_List,r_List] calculates the multi-fractal spectrum D, for a 
model based on the probabilities p and the scaling factors r. This function 
plots five functions t(q¢), D,(g), a(g), f(q), and f(a) . 


906 1.2 Glossary 


A.2.12 Penning Trap 


Motion of two ions in a Penning trap. 
e PenningCMPlot 


PenningCMPlot[x0_,y0_,x0d_,yOd_,w_] gives a graphical represen- tation 
of the center of mass motion for two ions in the Penning trap. The plot is 
created for a fixed cyclotron frequency w in cartesian coordinates (x, y, Z). 
Xo, Yo, Xo d, and yo d are the initial conditions for integration. 


Penning! 


Penning][r0_,z0_,e0_,n_,l_,te_] determines the numerical solution of the 


equation of motion for the relative components. To integrate the equations 
of motion, the initial conditions rp = r(t = 0), z = z(t =0), and the total 
energy eo are needed as input parameters. The momentum with respect to 


the r-direction is set to pry = 0. Parameters / and n determine the shape of 
the potential. The last argument f, specifies the endpoint of the integration. 


A.2.13 Perihelion Shift 


Perihelion shift of a planet. 
e AngularMomentum 


AngularMomentum[minorAxes_,majorAxes_,mass_] calculates the an- 


gular momentum of a planet. 
e DOOrbit 


DOOrbit[planet_String,phiend_,options___] plots the orbit in the case of 


vanishing determinants (see text). 
e Energy 


Energy[minorAxes_,majorAxes_,mass_] calculates the energy of a planet. 
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e orbit 


orbit[phiend_,minorAxes_,majorAxes_,mass_] creates a graphical 
representation of the perihelion shift if the major and minor axes and the 


mass are given. 
e Orbit 


Orbit[planet_String] creates a graphical representation of the perihelion 


shift for the planets contained in the database. 


PerihelionShift 


PerihelionShift{minorAxes_,majorAxes_,mass_] calculates the numeri- cal 


value of the perihelion shift. 


Planets 


Planets[planet_String] creates a list of data for planets and planetoids 
stored in the database of the package PerihelionShift. The database 
contains the names of the planets, their major axes, their eccentricities, and 
the mass of the central planet. Planets['List'] creates a list of the planets in 
the data base. Planets['name'] delivers the data of the planet given in the 


argument. 


A.2.14 Point Charges 


Fields of point charges. 
e EnergyDensity 


EnergyDensity[coordinates_List] calculates the density of the energy for 
an ensemble of point charges. The cartesian coordinates are lists in the 


form of { {x,y,z,charge},{...},...}. 


e Field 
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Field[coordinates_List] calculates the electric field for an ensemble of 


point charges. The cartesian coordinates are lists in the form 


{ {x,y,z,charge},{...},...}. 
FieldPlot 


FieldPlot[coordinates_List,type_,options___] creates a contour plot for an 
ensemble of point charges. The plot type (Potential, Field, or Density) is 
specified as a string in the second input variable. The third argument 
allows a change of the Options of ContourPlot and PlotGradientField. 


Potential 


Potential[coordinates_List] creates the potential of an assembly of point 
charges. The cartesian coordinates of the locations of the charges are given 


in the form of { {x,y,z,charge},{x,y,z,charge}.,...}. 


A.2.15 Poisson Bracket 


Canonical Poisson bracket. 


e PoissonBracket 


PoissonBracket[a_, b_, q_List, p_List] calculates the Poisson bracket for 
two functions a and b which depend on the variables p and q. Example: 
PoissonBracket[q,p,{q},{p}] calculates the fundamental bracket relation 


between the coordinate and momentum. 


A.2.16 Quantum Well 


Quantum well in one dimension. 
e PsiASym 


PsiASym[x_,k_,a_] determines the antisymmetric eigenfunction for a 
potential well of depth —Vo. The input parameter k fixes the energy and 2a 
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the width of the well. PsiASym is useful for a numerical representation of 


eigenfunctions. 
e PsiSym 


PsiSym[x_,k_,a_] determines the symmetric eigenfunction for a potential 
well of depth —Vo. The input parameter k fixes the energy and 2a the 
width of the well. PsiSym is useful for a representation of eigenfunctions. 


e Spectrum 


Spectrum[V0_,a_] calculates the negative eigenvalues in a potential well. 
Vo is the potential depth and 2 a the width of the well. The eigenvalues are 
returned as a list and are available in the variables Isym and lasym as 
replacement rules. The corresponding eigenfunctions are stored in the 
variables Plsym and Plasym. The determining equation for the 


eigenvalues is plotted. 


A.2.17 Renormalization 


Renormalization and percolation. 
e Dim 


Dim[n_] calculates the fractal dimension for the critical probability p,. 
The dimension depends on m where | < m < n—2, n is the size of the 
block used. 


e Ne 


Nc[n_] determines the mean number of atoms at the probability p, if mis 
changed in the range | < m <n -—2. The size of the block is determined by 


n. 


e Pcrit 
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Pcrit{n_] determines the critical probability for an n x n grid under the 
variation of m where mis the number of empty locations in the grid. The 


range of mis |< m<n-2. 
e RenormPlot 


RenormPlot[n_,type_String] plots the functions Ne, Dim or Perit. 


A.2.18 Tree as a Fractal 


Fractal tree. 
e Tree 


Tree[options___] creates a fractal tree. The options of the function Tree 
determine the form of the fractal created. Options are Generation > 10, 
BranchRotation > 0.65, BranchSkaling > 0.75, Branch- Thickness > 
0.7, OriginalThickness — 0.07, BranchColor > {RGBColor[0,0,0]}. 

Example: Tree[BranchColor > 11, BranchRotation —> 0.3], 11 is a list 


created in the package Tree. 


A.3 Mathematica Functions 


This appendix contains a short description of the Mathematica functions 
used in the book. It is a small selection of the approximately 1200 
functions available in the Mathematica kernel. The description given does 
not replace the text of the handbook by S. Wolfram ([1.1]). 


The first few items describe the use of the shorthand notation of symbols 
frequently used in the programming examples. The Mathematica functions 
used in the programs and in the notebooks follow. 


e Ihs = rhs evaluates rhs and assigns the result to lhs. From then on, lhs is 
replaced by rhs whenever it appears. {11, 12, ...}= {rl, 12, ...} evaluates 
the ri and assigns the results to the corresponding li. 
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Ihs > rhs represents a rule that transforms lhs to rhs. 


expr /. rules applies a rule or list of rules to transform each subpart of an 


expression expr. 


Ihs := rhs assigns rhs to be the delayed value of lhs. rhs is maintained in 
an unevaluated form. When lhs appears, it is replaced by rhs, evaluated 


afresh each time. 


Ihs :> rhs represents a rule that transforms lhs to rhs, evaluating rhs only 


when the rule is used. 
lhs == rhs returns True if lhs and rhs are identical. 


expr //. rules repeatedly performs replacements until expr no longer 


changes. 


AppendTo[s, elem] appends elem to the value of s and resets s to the 
result. 


Applylf, expr] or f @@ expr replaces the head of expr by f. Apply[f, 
expr, levelspec] replaces heads in parts of expr specified by levelspec. 


ArcSin[z] gives the arc sine of the complex number z. 


ArcTan[z] gives the inverse tangent of z. ArcTan[x, y] gives the inverse 
tangent of y/x, where x and y are real, taking into account the quadrant in 


which the point (x, y) is located. 
Begin[ "context*''] resets the current context. 


BeginPackage[ 'context'''] makes context’ and System* the only active 
contexts. BeginPackage[ "context ",{"need1l* "}, { "need2~ "},...}] calls 


Needs on the needi. 
BesselJ[n, z] gives the Bessel function of the first kind J(n, z). 


Block[{x, y, ...}, expr] specifies that expr is to be evaluated with local 


values for the symbols x, y, .... Block[{x = x0, ...}, expr] defines initial 
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local values for x,... . Block[ {vars}, body /; cond] allows local variables to 
be shared between conditions and function bodies. 


C[i] is the default form for the ith constant of integration produced in 
solving a differential equation with DSolve. 


Chop[expr] replaces approximate real numbers in expr that are close to 
zero by the exact integer 0. Chop[expr, tol] replaces with 0 approximate 
real numbers in expr that differ from zero by less than tol. 


Circle[{x, y}, r] is a two-dimensional graphics primitive that represents a 
circle of radius r centered at the point {x, y}. Circle[{x, y}, {rx, ry}] yields 
an ellipse with semiaxes rx and ry. Circle[{x, y}, r, {thetal, theta2}] 
represents a circular arc. 


Clear[symbol1, symbol2, ... ] clears values and definitions of the 
specified symbols. Clear["patternl", "pattern2", ...] clears values and 
definitions of all symbols whose names match any of the specified string 


patterns. 


Coefficient[expr, form] gives the coefficient of form in the polynomial 
expr. Coefficient[expr, form, n] gives the coefficient of form” in expr. 


ContourPlot(f, {x, xmin, xmax}, {y, ymin, ymax}] generates a contour 
plot of f as a function of x and y. 


Cos[z] gives the cosine of z. 
Cosh[z] gives the hyperbolic cosine of z. 
Cot[z] gives the cotangent of z. 


D[f, x] gives the partial derivative of f with respect to x. D[f, {x, n}] gives 
the nth partial derivative with respect to x. D[f, xl, x2, ...] gives a mixed 
derivative. 


f' represents the derivative of a function f of one argument. Derivative[n1, 
n2, ...|[f] is the general form, representing a function obtained from f by 
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differentiating nl times with respect to the first argument, n2 times with 
respect to the second argument, and so on. 


Det[m] gives the determinant of the square matrix m. 


Disk[{x, y}, r] is a two-dimensional graphics primitive that represents a 
filled disk of radius r centered at the point {x, y}. Disk[{x, y}, {r, ry}] 
yields an elliptical disk with semiaxes r, and r,. Disk[{x, y}, r, {0), 02}] 


represents a segment of a disk. 


Display[channel, graphics] writes graphics or sound to the specified 


output channel. 


Do[expr, {imax}] evaluates expr imax times. Dof[expr, {i, imax}] 
evaluates expr with the variable i successively taking on the values 1 
through imax (in steps of 1). Do[expr, {i, imin, imax}] starts with i = imin. 
Do[expr, {i, imin, imax, di}] uses steps di. Do[expr,{i, imin, imax}, {j, 
jmin, jmax},... ] evaluates expr looping over different values of j, etc. for 


each i. Do[] returns Null, or the argument of the first Return it evaluates. 


DSolve[eqn, y[x], x] solves a differential equation for the functions y[x], 
with independent variable x. DSolve[{eqnl, eqn2, ...},{yl[xl], ...}, {x1, 


...}] solves a list of differential equations. 


Dt[f, x] gives the total derivative of f with respect to x. Dt[f] gives the total 
differential of f. Dt[f, {x, n}] gives the nth total derivative with respect to 
x. Dt[f, x1, x2, ...] gives a mixed total derivative. 


EllipticK[m] gives the complete elliptic integral of the first kind K(m). 
End ] returns the present context, and reverts to the previous one. 


EndPackage[ ] restores $Context and $ContextPath to their values before 
the preceding BeginPackage, and prefixes the current context to the list 
$ContextPath. 


lhs == rhs returns True if lhs and rhs are identical. 
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Evaluate[expr] causes expr to be evaluated, even if it appears as the 
argument of a function whose attributes specify that it should be held 
unevaluated. 


Exp[z] is the exponential function. 


Expand[expr] expands products and positive integer powers in expr. 
Expand[expr, patt] avoids expanding elements of expr which do not 
contain terms matching the pattern patt. 


FindRoot[Ihs == rhs, {x, xo}] searches for a numerical solution to the 
equation lhs == rhs, starting with x = xo. 


Flatten[list] flattens out nested lists. Flatten[list, n] flattens to level n. 
Flatten[list, n, h] flattens subexpressions with head h. 


Floor[x] gives the greatest integer less than or equal to x. 


FontForm[expr, {''font'', size}] specifies that expr should be printed in 


the specified font and size. 


Function[body] or body& is a pure function. The formal parameters are # 
(or #1), #2, etc. Function[x, body] is a pure function with a single formal 
parameter x. Function[{x1, x2,...}, body] is a pure function with a list of 
formal parameters. Function[{x1, x2, ...}, body, {attributes}] has the given 
attributes during evaluation. 


<<name reads in a file, evaluating each expression in it, and returning the 
last one. Get["name ", key] gets a file that has been encoded with a certain 
key. 


Graphics[primitives, options] represents a two-dimensional graphical 
image. 


GraphicsArray[{gl, g2, ...}] represents a row of graphics objects. 
GraphicsArray[{{gl1, g12, ...}, ...}] represents a two-dimensional array of 
graphics objects. 
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HermiteH[n, x] gives the nth Hermite polynomial. 
Hold[expr] maintains expr in an unevaluated form. 


Hue[h] specifies that graphical objects which follow are to be displayed, if 
possible, in a color corresponding to hue h. Hue[h, s, b] specifies colors in 
terms of hue, saturation, and brightness. 


If[condition, t, f] gives t if condition evaluates to True, and f if it 
evaluates to False. If[condition, t, f, u] gives u if condition evaluates to 
neither True nor False. 


Im[z] gives the imaginary part of the complex number z. 
Infinity is a symbol that represents a positive infinite quantity. 


Input[ ] interactively reads in one Mathematica expression. 
Input["prompt"] requests input, using the specified string as a prompt. 


Integrate[f,x] gives the indefinite integral of f with respect to x. 
Integrate[f, {x, xmin,xmax } ] gives the definite integral. 
Integrate[f, {x,xmin,xmax},{y,ymin,ymax}] gives a multiple integral. 


InterpolatingFunction[range, table] represents an approximate function 
whose values are found by interpolation. 


JacobiAmplitude[u, m] gives the amplitude for Jacobi elliptic functions. 


JacobiSN[u, m] gives the Jacobi elliptic function sn at u for the parameter 


m. 


Join[list1, list2,... ] concatenates lists together. Join can be used on any set 
of expressions that have the same head. 


LaguerreL[n, x] gives the nth Laguerre polynomial. LaguerreL[n, a, x] 
gives the nth generalized Laguerre polynomial. 


LegendreP[n, x] gives the nth Legendre polynomial. LegendreP[n, m, x] 


gives the associated Legendre polynomial. 
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Length[expr] gives the number of elements in expr. 
Limit[expr, x — x9] finds the limiting value of expr when x approaches xo. 


Line[{pt1, pt2,...}] is a graphics primitive which represents a line joining a 
sequence of points. 


{el, e2, ...} is a list of elements. 


ListPlot[{y1, y2, ...}] plots a list of values. The x coordinates for each 
point are taken to be 1, 2, ... . ListPlot[{{x1, yl}, {x2, y2}, ...}] plots a list 
of values with specified x and y coordinates. 


Log[z] gives the natural logarithm of z (logarithm to base E). Log[b, z] 
gives the logarithm to base b. 


Mapl[f, expr] or f /@ expr applies f to each element on the first level in 
expr. Map[f, expr, levelspec] applies f to parts of expr specified by 
levelspec. 


MapAtlf, expr, n] applies f to the element at position n in expr. If n is 
negative, the position is counted from the end. MapAt[f, expr, {i, j, ...}] 
applies f to the part of expr at position {i, j, ...}. MapAt[f, expr, {{il, 
jl,...}, {12, j2, ...}, ...}] applies f to parts of expr at several positions. 


MatrixForm|list] prints the elements of list arranged in a regular array. 


Max[x]1, x2, ...] yields the numerically largest of the xi. Max[{x1, x2, ...}, 
{yl, ...}, ... ] yields the largest element of any of the lists. 


Min[xl, x2, ...] yields the numerically smallest of the xi. Min[{x1, x2, 
}, {yl,...},...] yields the smallest element of any of the lists. 


Mod|[m, n] gives the remainder on division of m by n. The result has the 
same sign as n. 


N[expr] gives the numerical value of expr. N[expr, n] does computations 


to n-digit precision. 
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NDSolve[eqns, y, {x, xmin, xmax}] finds a numerical solution to the 
differential equations eqns for the function y with the independent variable 
x in the range xmin to xmax. NDSolve[eqns, {yl, y2.,...}, {x, xmin, 
xmax}] finds numerical solutions for the functions yi. NDSolve[eqns, y, 
{x, xl, x2, ...}] forces a function evaluation at each of xl, x2, ... . The 
range of numerical integration is from Min[x1, x2, ...] to Max[x1, x2,...]. 


Needs[''context’ ", ''file''] loads file if the specified context is not already 
in $Packages. Needs["context'"] loads the file specified by 
ContextToFilename["context""] if the specified context is not already in 


$Packages. 
Nest[f, expr, n] gives an expression with f applied n times to expr. 
NestList[f, expr, n] lists the results of applying f to expr 0 through n times. 


NIntegrate[f, {x, xmin, xmax}] gives a numerical approximation to the 


integral of f with respect to x over the interval xmin to xmax. 


Normal[expr] converts expr to a normal expression, from a variety of 


special forms. 


NSolve[eqns, vars] attempts to solve numerically an equation or set of 
equations for the variables vars. Any variable in eqns but not vars is 
regarded as a parameter. NSolve[eqns] treats all variables encountered as 
vars above. NSolve[eqns, vars, prec] attempts to solve numerically the 


equations for vars using prec digits precision. 


Off[symbol::tag] switches off a message, so that it is no longer printed. 
Off[s] switches off tracing messages associated with the symbols. Off[m1, 
m2, ...] switches off several messages. Off[ ] switches off all tracing 


messages. 


On[symbol::tag] switches on a message, so that it can be printed. On[s] 
switches on tracing for the symbol s. On[ml, m2, ...] switches on several 


messages ma, m2, ... . On[ ] switches on tracing for all symbols. 


ParametricPlot[{fx, fy}, {t, tmin, tmax}] produces a parametric plot with 
x and y coordinates fx and fy generated as a function of t. 
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ParametricPlot[{{fx, fy}, {gx, gy}, ...}, {t, tmin, tmax}] plots several 
parametric curves. 


ParametricPlot3D[{fx, fy, fz}, {t, tmin, tmax}] produces a 
three-dimensional space curve parameterized by a variable t which runs 
from tmin to tmax. ParametricPlot3D[{fx, fy, fz}, {t, tmin, tmax}, {u, 
umin, umax}] produces a three-dimensional surface parameterized by t and 
u. ParametricPlot3D[{fx, fy, fz, s}, ...] shades the plot according to the 
color specifications. ParametricPlot3D[{ {fx, fy, fz}, {gx, gy, gz}, ...}, ..] 
plots several objects together. 


expr[[iJ]] or Part[expr, i] gives the ith part of expr. expr[[-i]] counts from 
the end. expr[[0]] gives the head of expr. expr[[i, j, ...]] or Part[expr, i, j, 
...] is equivalent to expr[[i]][fj]] ... . expr[[ {il, i2, ...}]] gives a list of the 
parts 11,12, ... of expr. 


Partition[list, n] partitions list into non-overlapping sublists of length n. 
Partition[list, n, d] generates sublists with offset d. Partition[list, {nl, n2, 
.-}, {dl, d2, ...}] partitions successive levels in list into length ni sublists 
with offsets di. 


Pi is pi, with numerical value 3.14159... . 


Plot[f, {x, xmin, xmax}] generates a plot of f as a function of x from xmin 
to xmax. Plot[{fl, f2, ...}, {x, xmin, xmax}] plots several functions fi. 


x + y +z represents a sum of terms. 
Point[coords] is a graphics primitive that represents a point. 
x” gives x to the power y. 


PowerExpand[expr] expands nested powers, powers of products, 
logarithms of powers, and logarithms of products. PowerExpand[expr, {x1, 
x2,...}] expands expr with respect to the xl. Use PowerExpand with 
caution because PowerExpand does not pay attention to branch cuts. 


Print[expr1, expr2,... ] prints the expri, followed by a newline (line feed). 


A. Appendix 919 


Protect[s1, s2, ... ] sets the attribute Protected for the symbols si. Protect[ 
"forml", "form2 ", ...] protects all symbols whose names match any of the 
string patterns formi. 


Quit[ ] terminates a Mathematica session. 


Randon] ] gives a uniformly distributed pseudorandom Real in the range 
0 to 1. Random[type, range] gives a pseudorandom number of the 
specified type, lying in the specified range. Possible types are Integer, 
Real, and Complex. The default range is 0 to 1. You can give the range 
{min, max} explicitly; a range specification of max is equivalent to {0, 
max}. 


Re[z] gives the real part of the complex number z. 
ReleaseHold[expr] removes Hold and HoldForm in expr. 


Replace[expr, rules] applies a rule or list of rules in an attempt to 
transform the entire expression expr. 


expr /. rules applies a rule or list of rules in an attempt to transform each 
subpart of an expression expr. 


expr //. rules repeatedly performs replacements until expr no longer 
changes. 


RGBColor[red, green, blue] specifies that graphical objects which follow 
are to be displayed, if possible, in the color given. 


Ihs >rhs represents a rule that transforms lhs to rhs. 


Save["filename", symb1, symb2, ...] appends the definitions of the 
symbols symbi to a file. 


Series[f, {x, x9, n}] generates a power series expansion for f about the 
point x= x9 to order (x—xo)”". Series[f, {x, xo, nx}, fy, yo, ny}] 
successively finds series expansions with respect to y, then x. 
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Show[graphics, options] displays two- and three-dimensional graphics, 
using the options specified. Show[gl, g2, ...] shows several plots 
combined. Show can also be used to play Sound objects. 


Simplify[expr] performs a sequence of transformations on expr and 


returns the simplest form it finds. 
Sin[z] gives the sine of z. 
Sinh[z] gives the hyperbolic sine of z. 


Solve[eqns, vars] attempts to solve an equation or set of equations for the 
variables vars. Any variable in eqns but not vars is regarded as a 
parameter. Solve[eqns] treats all variables encountered as vars above. 
Solve[eqns, vars, elims] attempts to solve the equations for vars, 


eliminating the variables elims. 


Sort[list] sorts the elements of list into canonical order. Sort[list, p] sorts 


using the ordering function p. 


SphericalHarmonicY[l, m, theta, phi] gives the spherical harmonic 
Yim(4, $). 


Sqrt[z] gives the square root of z. 


Sum[f, {i, imax}] evaluates the sum of f with i running from | to imax. 
Sum[f, {i, imin, imax}] starts with 1 = imin. Sum[f, {i, imin, imax, di}] 
uses steps di. Sum[f, {i, imin, imax}, {j, jmin, jmax},...] evaluates a 


multiple sum. 


Table[expr, {imax}] generates a list of imax copies of expr. Table[expr, 
{i, imax}] generates a list of the values of expr when i runs from | to imax. 
Table[expr, {i, imin, imax}] starts with i = imin. Table[expr, {i, imin, 
imax, di}] uses steps di. Table[expr, {i, imin, imax}, {j, jmin, 


jmax},...] gives a nested list. The list associated with i is outermost. 


Take[list, n] gives the first n elements of list. Take[list, -n] gives the last n 
elements of list. Take[list, {m, n}] gives elements m through n of list. 
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Tan[z] gives the tangent of z. 


Text[expr, coords] is a graphics primitive that represents text 
corresponding to the printed form of expr, centered at the point specified 


by coords. 


Thread[f[args]] ~‘threads" f over any lists that appear in args. 
Thread[f[args], h] threads f over any objects with head h that appear in 
args. Thread[f[args], h, n] threads f over objects with head h that appear in 
the first n args. Thread[f[args], h, -n] threads over the last n args. 
Thread[f[args], h, {m, n}] threads over arguments m through n. 


Unprotect[s1, s2, ...] removes the attribute Protected for the symbols si. 
Unprotect["form1","form2", ...] unprotects all symbols whose names 
textually match any of the formi. 


Which{[test1, valuel, test2, value2, ... ] evaluates each of the testi in turn, 
returning the value of the valuei corresponding to the first one that yields 


True. 
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